VB下进行MSGBOX的问题。。。

Private Sub Command1_Click()
'用text1的内容改文件1
Call changeTxt("D:\info1.ini", "number" & vbCrLf & "numb ", Text1)
'用text2的内容改文件2
Call changeTxt("D:\info2.ini", "number" & vbCrLf & "numb=", Text2)
Call changeTxt("D:\info3.ini", "number" & vbCrLf & "numb=", Text2)
End Sub

Sub changeTxt(TxtPath$, FindStr$, ReplaceStr$)
On Error GoTo err:
Dim tmpStr$, i&, j&, s$
Open TxtPath For Input As #1
tmpStr$ = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
i = InStr(tmpStr, FindStr)
j = InStr(i + Len(FindStr), tmpStr, vbCrLf)
If i = 0 Or j = 0 Or j < i Then
MsgBox "sorry,找不到关键字！.", 48, "提示："
Exit Sub
End If
i = i + Len(FindStr)
s = Mid(tmpStr, i, j - i)
tmpStr = Replace(tmpStr, FindStr & s, FindStr & ReplaceStr, 1, 1)

Open TxtPath For Output As #1

VB下进行MSGBOX的问题。。。 VB语言 Msgbox 的问题 VB程序设计MSGBOX用法的小问题 请教VB中MsgBox的应用问题 问下msgbox的初级问题 VB中关于msgbox使用的一个问题? VB问题:MsgBox的高级效果如何使用??? VB中msgbox的问题【大家进来看看吧】 vb中msgbox的用法 VB中MSGBOX的用法