Private Sub Daten_Empfangen()
        Dim bBuffer(1024) As Byte
        Dim dBuffer As Byte()
        Dim sBuffer As String
        Dim subBuffer As String
        Dim ausgabe As Boolean
        Dim logged As Boolean = False
        Dim id As String
 
        Dim brecv(1024) As Byte
        Dim bsend As Byte()
        Dim send As String
        Dim recv As String
 
 
        While i < 99
            'bBuffer = Nothing
            recv = Nothing
            sBuffer = Nothing
 
            brecv.Clear(brecv, 0, 1024)
 
 
 
 
 
            Client.Receive(brecv)
            recv = Encoding.ASCII.GetString(brecv)
 
            richMessage.AppendText(recv & System.Environment.NewLine)
 
            ausgabe = recv.StartsWith("PING :")
            If ausgabe = True Then
                'MessageBox.Show(sBuffer)
 
 
                'If logged = False Then
                id = recv.Substring(6)
                id = id.Remove(19, 100)
 
 
 
 
                'send = "PONG :" & id & System.Environment.NewLine
                'MessageBox.Show(send)
                'bsend = Encoding.ASCII.GetBytes(send)
                'Client.Send(bsend)
                'richMessage.AppendText("Ping? Pong! " & 
                ' System.Environment.NewLine)
                'ausgabe = False
                'logged = True
                'End If
                MessageBox.Show(id)
                send = "PONG :" & id
                richMessage.AppendText(send & System.Environment.NewLine)
 
                bsend = Encoding.ASCII.GetBytes(send)
 
                Client.Send(bsend)
                sBuffer = Encoding.ASCII.GetString(bsend)
                MessageBox.Show(sBuffer)
 
 
 
                richMessage.AppendText("Ping? Pong! " & _
                  System.Environment.NewLine)
                ausgabe = False
 
            End If
            bsend.Clear(bsend, 0, 1024)
        End While
    End Sub