Whats My IP Address ?

Private Sub GetIPAddress()
 
Dim strHostName As String
 
Dim strIPAddress As String
 

 
strHostName = System.Net.Dns.GetHostName()
 
strIPAddress = System.Net.Dns.Resolve(strHostName).AddressList(0).ToString()
 

 
MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)
 
End Sub