ホスト名文字列から Net.IPAddress を取得する

GetIPv4FirstAddress.vb

Public Shared Function GetIPv4FirstAddress(address As String) As Net.IPAddress

    Dim entries = Net.Dns.GetHostAddresses(address)

    For Each ip In entries
        If ip.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
            Return ip
        End If
    Next

    Return Nothing
End Function