Questo e' un esempio in VB6 ... dovresti adattarlo al VB.NET facilmente ...

codice:
     Dim o As Object
     Dim IIP As String
 
     Set o = CreateObject("InetCtls.Inet")
     IIP = o.OpenURL("http://pchelplive.com/ip.php")
     MsgBox ("Internet IP: " & IIP)
 
     Set o = Nothing