在线等大家帮忙，帮我看下该如何修改此段代码，关于TXT调用

Question

Private Sub Command1_Click()
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine  As String  '在循环中存放每行的内容
strFileName = App.Path & "\vb2.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
strAll = Trim(strLine)
Text1 = strLine
DoEvents
Loop
End Sub
————————————————————————————————————————————————————————
我想请大家帮我看看怎么改，才能改成点击一下Command1，调用TXT第一行，在点击一下调用第二行。。这样以此类推，我自己琢磨了半天始终是一点击，出现的始终最后一行·该怎么改啊··大家帮忙看看。先谢过了·

Answer 1

Private Sub Command1_Click()
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
strFileName = App.Path & "\vb2.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
strAll = strAll & Trim(strLine)
Text1 = strLine
DoEvents
Loop
End Sub

Answer 2

private LngLine as longPrivate Sub Command1_Click()
Dim strFileName As String '文件名
dim I as long 
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
LngLine=LngLine+1
i=1
strFileName = App.Path & "\vb2.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中Line Input #lngHandle, strLine
strAll = strAll & Trim(strLine)
Text1 = strLine
if I = LngLine then exit sub
i=i+1
DoEvents
Loop
End Sub

Answer 3

strAll = Trim(strLine)这行代码只是保存读取行，并没有连接字符串。
想连接:strAll =strAll & Trim(strLine)