Found this code for opening a textfile in a textbox on a custom VBA form:

Private Sub UserForm_Initialize()

Dim hFile As Long
Dim sFilename As String

sFilename = conLinkHelpdesk

hFile = FreeFile
Open sFilename For Input As #hFile
txtText.Text = Input$(LOF(hFile), hFile)
Close #hFile

End Sub

Works fine, but when the form opens, the cursor is at the bottom, which causes the end of the textfile to show, rather than the beginning. Is there a way to correct this?

Gustaf

Please refer the below link
http://support.microsoft.com/kb/209231

You can also use the Line input statement to retrieve a line at a time
--
If this post helps click Yes
---------------
Jacob Skaria


"Gustaf" wrote:

Found this code for opening a textfile in a textbox on a custom VBA form:

Private Sub UserForm_Initialize()

Dim hFile As Long
Dim sFilename As String

sFilename = conLinkHelpdesk

hFile = FreeFile
Open sFilename For Input As #hFile
txtText.Text = Input$(LOF(hFile), hFile)
Close #hFile

End Sub

Works fine, but when the form opens, the cursor is at the bottom, which causes the end of the textfile to show, rather than the beginning. Is there a way to correct this?

Gustaf

Oops...You can use this code after closing the file

UserForm1.TextBox1.SetFocus
UserForm1.TextBox1.SelStart = 0

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

Please refer the below link
http://support.microsoft.com/kb/209231

You can also use the Line input statement to retrieve a line at a time
--
If this post helps click Yes
---------------
Jacob Skaria


"Gustaf" wrote:

Found this code for opening a textfile in a textbox on a custom VBA form:

Private Sub UserForm_Initialize()

Dim hFile As Long
Dim sFilename As String

sFilename = conLinkHelpdesk

hFile = FreeFile
Open sFilename For Input As #hFile
txtText.Text = Input$(LOF(hFile), hFile)
Close #hFile

End Sub

Works fine, but when the form opens, the cursor is at the bottom, which causes the end of the textfile to show, rather than the beginning. Is there a way to correct this?

Gustaf

Jacob Skaria wrote:

UserForm1.TextBox1.SetFocus
UserForm1.TextBox1.SelStart = 0

Nice and tidy. Thank you very much!

If this post helps click Yes

Click yes?

Gustaf