Load a file

Option Explicit

Here's some simply code showing you how to load the file test.txt into a text box.

Option Explicit

' Get a free file number
FileNum = FreeFile

' Open Test.txt for input
Open App.Path & "\Test.txt" For Input As FileNum

' Read the contents of the file into TextBox1
TextBox1.Text = Input(Lof(Filenum), FileNum)

' Close the file
Close FileNum