Telnet клиент на сокетах

[an1s1]

Писал свой клиент:

[VBNET]

Namespace Engine

    Public Class TelnetClient

        Private soc As Net.Sockets.Socket

        Public Sub Connect(ByVal host As String, ByVal port As Integer)
            soc = New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
            soc.Connect(host, port)
        End Sub

        Public Sub Send(ByVal data As String)
            soc.Send(System.Text.Encoding.UTF8.GetBytes(data))
        End Sub

        Public Function Receive() As String
            Dim buf(1023) As Byte
            Dim out As String = ""
            Dim count As Integer

            Do
                count = soc.Receive(buf, buf.Length, Net.Sockets.SocketFlags.None)
                out &= System.Text.Encoding.UTF8.GetString(buf)
            Loop While count = buf.Length

            Return out
        End Function

        Public Sub Close()
            soc.Close()
            soc = Nothing
        End Sub

    End Class

End Namespace

Module telnettest
    Sub test()
        Dim x As New Engine.TelnetClient
        x.Connect("pop.mail.ru", 110)
        With x
            .Send("user an1s1")
            Debug.Print("User:")
            Debug.Print(.Receive)

            .Send("pass ****")
            Debug.Print("Pwd:")
            Debug.Print(.Receive)

            .Send("list")
            Debug.Print("List:")
            Debug.Print(.Receive)

        End With
        x.Close()
    End Sub
End Module

[/VBNET]


Ответ на user приходит мгновенно, но на оба последующих вопроса ответов вообще не приходит. Более того, программа ожидает ответа на pass достаточно долгий промежуток времени. Пароль правильный(тем более, должна приходить ошибка, если пароль неправильный). Что я делаю не так? Заранее спасибо.

[Петррр]

http://dotnettelnet.sourceforge.net/
Может стоит посмотреть готовые решения?