Dim Myfile As String
'Replace "c:\testfile.txt
file = "c:\testfile.txt"
Open Myfile For Input As #1
Text1.Text = Input(LOF(1), #1)
Close