...
    ''' <summary>
    ''' Der Server wartet hier auf die Clientverbindung und verarbeitet die 
    ' Nachrichten.
    ''' </summary>
    Sub ServerRead()
 
        Server = New TcpListener(MyIPEndpoint)
        Server.Start()
 
        Client = Server.AcceptTcpClient
 
        MyNetworkStream = Client.GetStream
        MyStreamReader = New StreamReader(MyNetworkStream)
        MyStreamWriter = New StreamWriter(MyNetworkStream)
 
        While True
            Do While MyStreamReader.Peek() >= 0
                MyLastIncomingMessage = MyLastIncomingMessage & Chr( _
                  MyStreamReader.Read)
            Loop
			'Jetzt eine Bestätigung senden
			...
        End While
    End Sub
...

Ich verwende Micorsoft Windows 7 (64Bit) und Visual Studio 2005 Professional.