Try this:
Code:
Open "readme.txt" For Input As #1

Do Until EOF(1)
Input #1, strText
Loop

Close #1

Text1.Text = strText