Obtener IP y nombre de PC en VB.NET

Public Function obtenerIPLocal()
        Try
            'Dim ip As Net.Dns
            Dim nombreHost As String = Net.Dns.GetHostName
            Dim esteHost As Net.IPHostEntry = Net.Dns.GetHostEntry(nombreHost)
            Dim direccionIP As String = esteHost.AddressList(0).ToString
            'TextBox1.Text = direccionip
            Return direccionIP

        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Function obtenerNombrePC()
        Try
            Dim nombrePC As String
            Dim nombreUsuario As String
            Dim pc As String

            nombrePC = System.Windows.Forms.SystemInformation.ComputerName
            nombreUsuario = System.Windows.Forms.SystemInformation.UserName

            pc = nombrePC & "/" & nombreUsuario

            Return pc
        Catch ex As Exception
            Return False
        End Try
    End Function