dopo che ho inviato il post mi è venuto in mente che il codice non funzionava cmq basta connettersi ad un mail server tipo pop.tiscali.it

codice:
Imports System.Net.Sockets

Public Class Form1

    Private Function receiveCommand(ByVal cli As TcpClient, _
                                ByVal strm As NetworkStream) As String
        Dim msg As String = Chr(34)

        Try
            'dichiaro la matrice di byte
            Dim byteServer(cli.ReceiveBufferSize + 1) As Byte
            'leggo l'array di byte che mi restituisce il server
            strm.Read(byteServer, 0, byteServer.Length)
            byteServer(byteServer.Length - 1) = 43
            'converto i byte in stringa
            msg = System.Text.Encoding.ASCII.GetString(byteServer) & msg

            ' --------------------------------------------
            ' se qui controlli il valore di msg vedi che mancano le virgolette finali
            ' --------------------------------------------

            Return msg
        Catch ex As Exception
            Return "EXCEPTION - " & ex.Message
        End Try
    End Function

    Function connetti()
        Dim netStrm As NetworkStream
        Dim tcpCli As New TcpClient
        Dim msg As String = ""

        Try
            'Provo a connettermi
            tcpCli.Connect("pop.tiscali.it", 110)
            'passo al socket stream i valori dello stream tcp
            netStrm = tcpCli.GetStream()

            msg = receiveCommand(tcpCli, netStrm)

            'controllo le prime tre lettere del messaggio
            'se con +OK l'operazione è stata eseguita con successo
            'se con -ERR c'è stato un errore

            If msg.StartsWith("+OK") Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(connetti)
    End Sub
End Class