Dim ipE As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)
Dim AL As Array = Dns.GetHostEntry(vWrkStn).AddressList
Dim A As IPAddress
For Each A In AL
If A.AddressFamily = Sockets.AddressFamily.InterNetwork Then
IP4 = A
Exit For
End If
Next
MyIP = IP4.ToString