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