[RESOLVED] How To Get Data From A TXT File?

[lintz]

Dim sFileName As String
Dim s As String

sFileName = "C:\test.txt"

Text1.Text = Left$(sFileName, Len(sFileName) - 4) ' -4 for .txt

'OPen file and grab all contents
Open sFileName For Input As #1

s = Input(LOF(1), 1)

Close #1

Text2.Text = s