This is the Solution:
Dim WC As New System.Net.WebClient
Dim ipaddress As String = System.Text.Encoding.ASCII.GetString((WC.DownloadData("http://www.whatismyip.com/automation/n09230945.asp")))
MessageBox.Show(ipaddress)
You missed the New Keyword to declare Object..