vb撰写错误

会vb的帮忙一下,最近在练习Inet物件
 写一个练习程式但是明明网页存在,却不报
有点怪怪的,以下是程式码

On Error Resume Next
Dim s, i, x As Integer
Dim head, rightx() As String
x = 1
If Left(Text1, 7) <> "http://" Then
Text1.Text = "http://" & Text1.Text
Text1.SetFocus
End If
MsgBox "载入档案可能会很久喔!", , "警告 ..

访客只能看到部份内容，免费 加入会员

x0

If Left(Text1, 7) <> "http://" Then
Text1.Text = "http://" & Text1.Text
Text1.SetFocus
End If

我没看到网址阿 = =
怎么 你没放吧?

x0

If Left(Text1, 7) <> "http://你的网址!!!" Then
Text1.Text =     "http://你的网址!!!"         & Text1.Text
Text1.SetFocus
End If
MsgBox "载入档案可能会很久喔!", , "警告"
If Right(Text1, 1) <> "/" Then
Text1.Text = Text1.Text & "/"
Text1.SetFocus
End If
Open App.Path & "\admin.dat" For Input As #1
Do While Not EOF(1)
Line Input #1, a
List1.AddItem a
Loop
Close
s = List1.ListCount

x0