vb 从txt里面查找一段指定字符串?并取出后面的内容?

Question

有一个文本文档（1.txt）：
张三=80
李四=90
张四=70

我想查找李四=多少？如何用VB查出来，以MSGBOX显示返回的东西。
谁能帮我写出vb源码？原理我已经明白了，就是不会表达。
如果我说的不明白可以看这个：
http://zhidao.baidu.com/question/131990303.html
谢了各位。急用

Answer 1

说明：新建工程，保存到某文件夹，把那个文件1.txt也复制到该文件夹
用1个按钮就可以了：

Private Sub Command1_Click()

Dim MyStrLine As String
Open app.path & "\1.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, MyStrLine '读入一行
if left(MyStrLine,2)="李四" then
exit do
end if
Loop
Close #1 ' 关闭文件。
msgbox right(MyStrLine,len(MyStrLine)-3)

End If

Answer 2

Private Sub Command1_Click()
Dim arr, i, mark
mark = "李四"
Open "c:\a.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
For i = 0 To UBound(arr)
If InStr(arr(i), mark) = 1 Then MsgBox Split(arr(i), "=")(1)
Next
End Sub

Answer 3

在TXT页面按 ctrl+F 输入你要搜索的文字 即可。欢迎采纳。谢谢