Получение электронного письма

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            client = New Sockets.TcpClient("213.180.204.37", 995)
            TextBox3.Text = "соединение установлено"
        Catch ex As Exception
            TextBox3.Text = "соединение не установленно"
            Return
        End Try
        nstr = client.GetStream
        read = New IO.StreamReader(nstr, System.Text.Encoding.ASCII, True)
        write = New IO.StreamWriter(nstr)
        otvet = read.ReadLine()
        TextBox3.Text = otvet
    End Sub

Imports System.Net
Imports System.Net.Security
 
Public Class Form1
    Dim client As Sockets.TcpClient
    Dim read As IO.StreamReader
    Dim write As IO.StreamWriter
    Dim nstr As Security.SslStream
    Dim otvet As String
    Dim endpoint As Net.IPEndPoint
    'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '    write.WriteLine("User " & "[" & TextBox1.Text & "]" & Chr(13) & Chr(10))
    '    write.Flush()
    '    otvet = read.ReadLine()
    '    TextBox3.Text = otvet
    'End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            client = New Sockets.TcpClient("213.180.204.37", 995)
            TextBox3.Text = "соединение установлено"
        Catch ex As Exception
            TextBox3.Text = "соединение не установленно"
            Return
        End Try
        nstr = New SslStream(client.GetStream)
        read = New IO.StreamReader(nstr, System.Text.Encoding.ASCII, True)
        write = New IO.StreamWriter(nstr)
        otvet = read.ReadLine()
        TextBox3.Text = otvet
    End Sub
End Class

 read = New IO.StreamReader(nstr, System.Text.Encoding.ASCII, True)

Imports System.Net.Security
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim client As Net.Sockets.TcpClient
        Dim sr As IO.StreamReader
        Dim sw As IO.StreamWriter
        Dim ns As SslStream
        Dim otvet As String
        'соединяемся с сервером
        client = New Net.Sockets.TcpClient
 
        Try
            client.Connect("pop3.yandex.ru", 995)
 
        Catch ex As Exception
            MessageBox.Show("Соединение не установлено" + ex.ToString, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False)
            Return
        End Try
        ns = New SslStream(client.GetStream)
        ns.AuthenticateAsClient("pop3.yandex.ru")
        sr = New IO.StreamReader(ns, Encoding.ASCII, True)  'это то что отправляет наши команды на сервер
        sw = New IO.StreamWriter(ns)                       'а это то что читает ответы сервера
        otvet = sr.ReadLine()
        TextBox1.Text &= otvet
 
        sw.WriteLine("User " & "........" & Chr(13) & Chr(10))
        sw.Flush()
        otvet = sr.ReadLine()
        If otvet.Substring(0, 3) = "-ER" Then MsgBox("Ошибка")
 
        'отправляем пароль
 
        sw.WriteLine("Pass " & "........" & Chr(13) & Chr(10))
        sw.Flush()
        otvet = sr.ReadLine
        TextBox1.Text &= vbCrLf & otvet
        If otvet.Substring(0, 3) = "-ER" Then MsgBox("Ошибка")
 
        Dim nummess As Array
        Dim totmessages As Integer
        sw.WriteLine("stat")
        sw.Flush()
        otvet = sr.ReadLine()
        nummess = otvet.Split(" ")
        totmessages = CInt(nummess(1))
        TextBox1.Text &= vbCrLf & totmessages.ToString
    End Sub
End Class