I think you're after something like this.
Private Sub CopyAll()
Dim AllString As String
Dim iFile As Integer
Dim Line As String
iFile = FreeFile
Open "C:\Filename.txt" For Input As iFile
While NOT EOF(ifile)
Line Input #iFile, Line
AllString = AllString & Line ' << Marked line see below
Wend
Close (iFile)
TextBox.Text = AllString
End Sub
This will copy ALL of the text from a file. If you wish to include Character returns (ie if your using a multiline box) you'd want to put in something like below instead of the Marked line:
If AllString <> vbnullstring then
AllString = AllString & vbcrlf & Line
else
AllString = Line
end if
Enter your message below
Sign in or Join us (it's free).