Private Sub Data_Receive()
        Dim Bytes(1024) As Byte
        Dim counterFromGmx As Int32 'Zählt die empfangenden Bytes
 
 
        Do While True
            If GMXSock.Connected = True Then
                Try
 
                    counterFromGmx = GMXSock.Receive(Bytes)
 
                    Daten = Encoding.ASCII.GetString(Bytes, 0, counterFromGmx)
 
                 TextBox1.Text += Daten
 
 
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
        Loop
 
    End Sub