求助：关于窃取记事本内关键字的问题！ - 编程论坛

求助：关于窃取记事本内关键字的问题！如果一直读取关键数据是4位数，显示就不会出错，如果位数发生变化，增加一位或者减少一位就是显示出错，把多的字读取出来，求助论坛各位老师有什么办法固定显示。在程序文件夹内有一个st.txt的记事本，里面有一句话 “今天收入：1580件产品”

程序代码：

Private Sub Command1_Click()
Dim S1 As String, i As Long, j As Long
Dim S2 As String, S3 As String
Open App.Path + "\st.txt" For Input As #1
S1 = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
i = InStr(S1, "今天收入：")
On Error Resume Next
j = InStr(i, S1, vbNewLine)
S2 = Mid(S1, i + 5, j - i + 5)
Label1.Caption = S2
End Sub