可是问题来了，只显示最末一行，什么鬼？😢

你是不是还不会用贴吧啊……之前你发了一段代码说有问题，却不说是什么问题，现在又新发了个帖子说问题，你是不会回帖还是找不到自己发的帖子了……
我把当时的回复复制过来吧：
如果你想把文件的全部内容显示出来，这样改：
把 Text3.Text = s 改成 Text3.Text = Text3.Text & s & vbCrLf
（循环之前，可能有必要先清空Text3）
这样最后会多一个空行，可以在循环之后加一句：
Text3.Text = Left(Text3.Text, Len(Text3.Text) - 2)

有的人，问题表述不清楚，有的人发帖还限制回复，这些人应该先把电脑基础学学好，再来学编程

因为你不让他显示先前的内容

不要生气 什么人都有 话说我也是一个小白

仅仅把每次新读入的内容放入文本框，那文本框就只显示最后一行。
有的人不会做【累加】，一行一行地放入文本框，对于文本框内的信息，其实是一个累加的过程。
'　读入磁盘文件【f1】的内容
'　放入多行文本框【Text1】，
'　调用【Call 读入 f1】
Public Sub 读入(f1 As String)
Dim n1 As Integer
Dim c1 As String
On Error Resume Next
n1 = FreeFile
Text1.Text = ""
Open f1 For Input As #n1
Do While Not (Eof(n1))
Line Input #n1, c1
Text1.Text = Text1.Text & c1
If Len(Trim(c1)) > 0 Then
Text1.Text = Text1.Text & vbCrLf
End If
Loop
Close #n1
End Sub