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
Comments