Public Function GetPublicIP() As IPAddress
 
        GetPublicIP = Nothing
 
        Dim LocalHost As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName)
 
        For Each Address In LocalHost.AddressList
            'Si no es IPv6'
            If Not (Address.IsIPv6SiteLocal Or Address.IsIPv6Multicast Or Address.IsIPv6LinkLocal) Then
                'Si es de la familia InterNetwork'
                If Address.AddressFamily = Sockets.AddressFamily.InterNetwork Then
                    'Y no es privada'
                    If Not IsPrivateIP(Address) Then
                        Return Address
                    End If
                End If
            End If
        Next
 
    End Function
 
    Public Function IsPrivateIP(ByVal IP As IPAddress) As Boolean
 
        Dim _0, _1 As Byte
 
        'Si el primer byte es 10 es privada'
        'Si el primer byte es 172 y el segundo está entre 16-31 es privada'
        'Si el segundo byte es 168 es privada'
        'De lo contrario es pública'
 
        _0 = IP.GetAddressBytes(0)
        _1 = IP.GetAddressBytes(1)
 
        Select Case _0
            Case 10
                Return True
            Case 172
                If _1 >= 16 And _1 <= 31 Then Return True
            Case 192
                If _1 = 168 Then Return True
        End Select
 
        Return False
 
    End Function