VB用完Append之后,怎么把这个文本的东西全部一行行的读出来

Private Sub cmdOpen_Click()
Dim str As String
Dim str1 As String
Dim NextLine As String
Dim Txt_sj As String
Dim n As Integer
n = Val(Text1)
CommonDialog1.ShowOpen
Text1 = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, str1
str = str & str1 & Chr(13) & Chr(10)
Text1 = str
Loop
Close
End Sub