Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHost Name)
Console.WriteLine(h.AddressList(0).ToString)