'The Ruby way
    'Socket.ip_address_list.select(&:ipv4?).collect(&:ip_address)
 
   'Amateur's way: With indexed loop
    Function Get_Local_IPv4_Addresses1() As String()
        Dim All_Addresses() As IPAddress
        All_Addresses = Dns.GetHostAddresses(Dns.GetHostName)
        Dim Result() As String = {}
        For i = 0 To All_Addresses.Length - 1
            If All_Addresses(i).AddressFamily = InterNetwork Then
                ReDim Preserve Result(Result.Length)
                Result(Result.Length - 1) = All_Addresses(i).ToString
            End If
        Next
        Return Result
    End Function
 
    'Professional's way. With "for each" loop. No need to declare array to hold results
    Function Get_Local_IPv4_Addresses2() As String()
        Dim Result() As String = {}
        For Each ip In Dns.GetHostAddresses(Dns.GetHostName())
            If ip.AddressFamily = Sockets.AddressFamily.InterNetwork Then
                ReDim Preserve Result(Result.Length)
                Result(Result.Length - 1) = ip.ToString()
            End If
        Next
        Return Result
    End Function
 
    'Expert's way. With generic collections and lambda expressions
    Function Get_Local_IPv4_Addresses3() As String()
        Dim All_Addresses() As IPAddress
        All_Addresses = Array.FindAll(Dns.GetHostAddresses(Dns.GetHostName()), Function(ip) ip.AddressFamily = InterNetwork)
        Return Array.ConvertAll(All_Addresses, Function(ip) ip.ToString())
    End Function