Private Sub Command1_Click()
Open "c:\temp.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
p = InStr(s, Text1.Text) '在text1中输入查找关键字
If p <> 0 Then Print Mid(s, p + Len(Text1.Text) + 1, 6)
Wend
Close
End Sub

这个数据显示在Print Mid上 我想让它显示在 Text2.Text 上

If p <> 0 Then text2=text2 & Mid(s, p + Len(Text1.Text) + 1, 6) & vbcrlf

xzlxzlxzl版主的方法可行，后面的vbcrlf是换行参数。如果不想换行的话就去掉。如果是想第一行原来数据，第二行新数据，就把vbcrlf放在 Mid(s, p + Len(Text1.Text) + 1, 6)前面。

xzlxzlxzl版主 首先谢谢你，我读取txt内容到text2里后显示在text2的中间，如果控件短了看不到读取的内容，而且我就想每次就显示一个数据，可是我多读取几次后，就显示很多，最好读取数据后就显示在最左，只显示一个。这个代码多读取几次后好像不显示了。

如果控件短了看不到读取的内容就把Multiline属性改为true（好像是这样叫来着的）
这样就会自动换行了。