Dim tcpClient As New System.Net.Sockets.TcpClient()
        Dim networkStream As Sockets.NetworkStream
 
        Try
            tcpClient.Connect(ip.Text, port.Text)
            networkStream = tcpClient.GetStream
 
 
            Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes("KA was du" & _
              "halt willst") 'das umwandeln
            networkStream.Write(data, 0, data.Length) 'das senden
 
 
            MsgBox("Gesendet")
        Catch ex As Exception
            MsgBox("Fehler")
        End Try

Er kam, er sah, er zerst?rte - Der MENSCH