Socket Network VB.Net Tutorial

Imports System.Net
Imports System.Net.Sockets
Public Class Tester
    Public Shared Sub Main
        Try
            Dim myIPHostEntry As IPHostEntry = Dns.Resolve("www.google.com")
            Dim myIPAddresses() As IPAddress = myIPHostEntry.AddressList
            Dim myIPAddress As IPAddress
            Dim strIPAddressList As String
            For Each myIPAddress In myIPAddresses
                Console.WriteLine(myIPAddress.ToString)
            Next
        Catch ex As SocketException
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Class
72.14.253.147
72.14.253.103
72.14.253.99
72.14.253.104