Imports System.Net
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim host As IPHostEntry = Dns.GetHostEntry("www.google.es")
        Dim ip As IPAddress() = host.AddressList
        Dim index As Integer
 
        For index = 0 To ip.Length - 1
            TextBox1.Text = ip(index).ToString
        Next index
    End Sub
End Class

TextBox1.Text = ip(0).ToString

        Dim IPv4List As New List(Of String)(HostNameToIP("foro.elhacker.net", Net.Sockets.AddressFamily.InterNetwork))
        Dim IPv6List As New List(Of String)(HostNameToIP("LOCALHOST", Net.Sockets.AddressFamily.InterNetworkV6))
 
        MessageBox.Show(IPv4List(0)) ' Result: 108.162.205.73
        MessageBox.Show(IPv6List(0)) ' Result: ::1

    ' HostName To IP
    ' By Elektro
    '
    ' Usage Examples :
    ' MessageBox.Show(HostNameToIP("foro.elhacker.net", Net.Sockets.AddressFamily.InterNetwork).First)
    '
    ''' <summary>
    ''' Gets the specified addresses associated to a Host.
    ''' </summary>
    ''' <param name="hotsName">The Host name.</param>
    ''' <param name="addressFamily">The address family.</param>
    ''' <returns>The addresses.</returns>
    ''' <exception cref="System.NotImplementedException">Address filtering not implemented yet.</exception>
    Public Function HostNameToIP(ByVal hotsName As String,
                                 ByVal addressFamily As Net.Sockets.AddressFamily) As IEnumerable(Of String)
 
        Dim hostInfo As Net.IPHostEntry = Net.Dns.GetHostEntry(hotsName)
        Dim addressList As IEnumerable(Of String)
 
        Try
            hostInfo = Net.Dns.GetHostEntry(hotsName)
 
            Select Case addressFamily
 
                Case Net.Sockets.AddressFamily.InterNetwork,
                    Net.Sockets.AddressFamily.InterNetworkV6 ' IPv4, IPv6.
 
                    addressList = From address As Net.IPAddress In hostInfo.AddressList
                                  Where address.AddressFamily = addressFamily
                                  Select (address.ToString)
 
                Case Else
                    Throw New NotImplementedException("Address filtering not implemented yet.")
 
            End Select
 
        Catch ex As Net.Sockets.SocketException
            Throw
 
        Catch ex As ArgumentNullException
            Throw
 
        Catch ex As Exception
            Throw
 
        End Try
 
        Return addressList
 
    End Function