VB text 循环输入换行

Private Sub Command6_Click()
    Dim Text 
    Open "C:\Documents and Settings\Administrator\桌面\22.txt" For Input As #1
    Do While Not EOF(1)
    Line Input #1, Text
    Text1.Text = Text & vbCrLf
    Loop
    Close #1
End Sub

像这样写的话输出后老是只显示最后一条记录！~我想把TXT里面的东西全显出来怎么弄？？

---

Text1.Text =Text1.Text & Text & vbCrLf
就1分,楼下的别回了

---

我都没分新手不知道怎么弄不至于不帮吧

---

下次分多我会出分的谢谢了

---

我回答的正确,不至于不给分吧

引用

我都没分新手不知道怎么弄不至于不帮吧

---

VB code:

Private Sub Command6_Click()
Dim Text
Open "C:\Documents and Settings\Administrator\桌面\22.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Text
Text1.Text =Text1.Text & Text & vbCrLf
Loop
Close #1
End Sub

引用

Private Sub Command6_Click()
    Dim Text 
    Open "C:\Documents and Settings\Administrator\桌面\22.txt" For Input As #1
    Do While Not EOF(1)
    Line Input