求助高手,帮助修改这个错误,是模块源码的.改好了上句,错误又到下句,好烦

这个是在线升级的源码,
第一次错误是:
运行后提示错误，
模块的
Public Sub UpData() '在线升级
On Error GoTo 100
编译错误
标签未定义
之后我改成
Public Sub UpData() '在线升级
On Error GoTo 0
结果错误又到了下一句
If Inet1.StillExecuting = True Then
实时错误，要求对象
之后我再把goto去掉了，提示错误也是这句
If Inet1.StillExecuting = True Then
实时错误，要求对象
==============================
我是用本机测试的，所以网址地址是：127.0.0.1
以下是源码'需要：Microsoft Internet Transfer Control 6.0控件
'在网站上建立一个updata.txt文件，里面保存升级信息
'updata.txt文件格式：
'文件内容：
'共三行，第一行：版本号；第二行：更新文件名；第三行: 文件长度Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Const SW_MINIMIZE = 6
Public Sub UpData() '在线升级
On Error GoTo 0
Dim MyData() As Byte, VerInfo() As Byte, Ti As Long, Tj As Long
If Inet1.StillExecuting = True Then Exit Sub
VerInfo() = Inet1.OpenURL(" http://127.0.0.1/updata.txt", icString)
Ti = InStr(1, VerInfo, vbCrLf) + 2
Tj = InStr(Ti, VerInfo, vbCrLf)
'检测版本号
If Val(Left$(VerInfo, Ti - 3)) <= Val(App.Major & "." & App.Minor & App.Revision) Then Exit Sub
If MsgBox("SWpsF 发布了新的版本：" + Left$(VerInfo, Ti - 3) + "，文件大小：" + Mid$(VerInfo, Tj + 2) + "，是否进行在线升级 ？", vbYesNo + vbQuestion, "在线升级") = vbNo Then Exit Sub
IsUp = True
'开始下载更新文件
MyData() = Inet1.OpenURL(" http://127.0.0.1/" + Mid$(VerInfo, Ti, Tj - Ti), icByteArray)
Open App.Path + "\" + Mid$(VerInfo, Ti, Tj - Ti) For Binary Access Write As #1
Put #1, , MyData()
Close #1
IsUp = False
'执行更新文件
ShellExecute 0, vbNullString, App.Path + "\" + Mid$(VerInfo, Ti, Tj - Ti), vbNullString, App.Path, SW_SHOWNORMAL
End
End Sub