Per sapere il tuo IP:

codice:
 Dim utf8 As New UTF8Encoding()
        Dim webClient As New Net.WebClient()
        Dim externalIp As String = utf8.GetString(webClient.DownloadData("http://whatismyip.com/automation/n09230945.asp"))