Dim sIP As String
  Dim sURL As String
 
  With Inet1
    .AccessType = icDirect
    .Protocol = icHTTP
 
    sURL = "http://gruntbusters.cybton.com/ip.php"
    sIP = .OpenURL(sURL, icString)
 
    MsgBox sIP
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de