Private Sub Winsock3_DataArrival(ByVal sender As Winsock_Control.Winsock, ByVal _
  BytesTotal As Integer) Handles Winsock3.DataArrival
        Dim s As String
        Winsock3.GetData(s)
        MsgBox(s)'<<<<Mit einem MsgBox
    End Sub

    Private Sub Winsock3_DataArrival(sender As Winsock_Control.Winsock, _
      BytesTotal As Integer) Handles Winsock3.DataArrival
        Dim Buffer As String = ""
        Winsock3.GetData(Buffer)
        TextBox1.Text =Buffer '<<<<< Mit einem TextBox
    End Sub