this may helps
To find your IP address we first ask for your machine name, then we pass that to the GetHostName function that gives us a valid IPHostEntry object. This object contains your IP address in the AddressList array, so we just dump the value to the console.

VB Code:
  1. Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)_

  2.  Console.WriteLine(CType(h.AddressList.GetValue(0),_  IPAddress).ToString)

from abstractvb.com