Good post, but let me everybody some work... if you want your IP only.
Code:
Dim wc As Net.WebClient = New Net.WebClient
Dim ip As String = wc.DownloadString("http://whatismyip.com/automation/n09230945.asp")
MessageBox.Show(ip)
I code at http://tech.reboot.pro