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