He estado buscando información y espero que este codigo te sea de ayuda. No he entendido muy bien tu duda, espero que al menos el codigo que te paso no este muy desencaminado.
Código:
Private Function GetAllIPAddresses(ByVal domainName As String) _
As System.Collections.Specialized.StringCollection
Dim IPs As New System.Collections.Specialized.StringCollection
Dim hostInfo As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(domainName)
For Each ip As System.Net.IPAddress In hostInfo.AddressList
MessageBox.Show(ip.ToString)
IPs.Add(ip.ToString)
Next
Return IPs
End Function
IPs, es un textbox en el que se muestra la ip. Mucha suerte.
Un saludo:
Pinty