怎样读取一个文本文件，把内容存入text中

Question

Private Sub Command2_Click()
    Open "aa.txt" For Binary As #1
       Text1.Text = Input(LOF(1), 1)
    Close #1
End Sub

Answer 1

MSDN里就有现成的呀
Dim MyString, MyNumber
Open "TESTFILE" For Input As #1   ' 打开输入文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Input #1, MyString, MyNumber   ' 将数据读入两个变量。
   Debug.Print MyString, MyNumber   ' 在立即窗口中显示数据。
Loop
Close #1   ' 关闭文件。