vb获取一个TXT文本中某几行数据

如果TXT文本如下：
杀毒发送＝12321
数据行数＝4
456＝4324
789＝423423
454＝3432
水电费＝456

如上数据段中，数据行数＝4可以实时得到该行数据后有几行数据，我如何获取后面4行数据。VB中调用

---

添加一个文本框，将它的Multiline属性设为True，
将文本文件放在本斗模如工程文件夹下，否码岩则自己修改空启第3行的路径。
Private Sub Command1_Click()
Dim a As String, b As Integer
Open App.Path & "\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
If InStr(a, "数据行数＝") > 0 Then
b = Val(Mid(a, 6))
For i = 1 To 4
Line Input #1, a
Text1 = Text1 & a & vbCrLf
Next
Exit Do
End If
Loop
Close
End Sub

---

这个很容易，我帮你写一下。

---