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