Private Sub URL_Load(ByVal sURL As String)
 
WebBrowser1.Silent = True
With WebBrowser1
     .Tag = "Load"
     If sURL = "" Then Exit Sub
     .Navigate sURL
     While .Tag <> ""
        DoEvents
     Wend
End With
 
End Sub
Private Sub Command1_Click()
 
suchurl = _
  "http://network-tools.com/default.asp?prog=lookup&host=204.155.170.130"
URL_Load suchurl
 
End Sub
Private Sub Command2_Click()
 
With WebBrowser1.Document
    shtmlText = .documentElement.outerHTML
End With
AZ = InStr(1, shtmlText, ") in region")
GH = Mid(shtmlText, AZ - 2, 2)
Label1.Caption = GH
 
End Sub