Como retornar o IP da máquina local

'Este trecho de código mostra como obter o IP
'da máquina local

Imports System.Net
Imports System.Net.Dns

Module Module1
  Sub Main()
    Dim h As IPHostEntry = GetHostEntry(GetHostName)
    Dim IP As String = CType(h.AddressList.GetValue(0), _
      IPAddress).ToString()

    Console.WriteLine("O IP local é: " & IP)

    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module