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