Ti consiglio questo codice per recuperare il tuo indirizzo IP, molto snello e soprattutto del nostro Forum....

codice:
    Dim wc As New WebClient()
        Dim myIP As String = Encoding.ASCII.GetString(wc.DownloadData(New Uri("http://pchelplive.com/ip.php")))
Ovviamente finchè pchelplive rimane vivo.