Private Sub Tihuan()
On Error GoTo B:
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = "http://www.offist.com" text1.text="上海办公用品"
Text16 = " "
Label1 = "读取验证码……"
Text16 = Inet1.OpenURL
Open "C:\Web.txt" For Output As #1 '创建文件
Print #1, Text16 '把TEXT16写入web.txt文件
Close #1
Sub Find(A)
A = Mid(A, 30)
A = StrReverse(A)
A = Mid(A, 3)
A = StrReverse(A)
Text1 = A
Label1 = "分析验证码完毕"
End Sub

大侠们看看错误再哪里