Imports System.net
Imports System.Net.Sockets
Imports System.IO
Imports System.Text.Encoding
 
Try
            Dim tcpclient As New TcpClient
            Dim stream As NetworkStream
           Dim msgBytes() As Byte = Encoding.ASCII.GetBytes( ' Nachricht ' )
 
            With tcpclient
                .Connect(IPAddress.Parse( ' IP Adresse ' ), 65534)
                stream = .GetStream
            End With
 
            With stream
                .Write(msgBytes, 0, msgBytes.Length)
 
                tcpclient.Close()
 
            End With
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try