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

[lintz]

Oh OK. Try this.

Sub Command1_Click()
Dim sFileName As String
Dim s As String

sFileName = Text1.Text & ".txt"

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

s = Input(LOF(1), 1)

Close #1

Text2.Text = s 

End Sub