Qualcosa del genere ...

codice:
Dim wc As New System.Net.WebClient()
Dim IIP As String = System.Text.Encoding.ASCII.GetString(wc.DownloadData(New Uri("http://pchelplive.com/ip.php")))