Private Sub Timer2_Timer()
Dim arr, i, mark, s
mark = Label1.Caption
Open App.Path & "\1.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 Label2.Caption = Split(arr(i), "=")(1)
Next
End Sub
说明：
根据Label1.Caption里的内容查询1.TXT是否存在相应的数据，如果存在则在Label2.Caption输出=后面的字符，如果不存在则返回到Label2.Caption

TXT里面每行的格式如下
123456=你好
456789=好啊

不多说帮忙修改和解决，顺便发一下支付宝二维码，红包感谢