Public Function SendMessage(ByVal Ip As String, ByVal Port As Integer, ByVal _
  Message As String)
 
        Dim client As New System.Net.Sockets.TcpClient
        Dim Buffer() As Byte = System.Text.Encoding.Default.GetBytes( _
          Message.ToCharArray)
        If Not checkip(Ip) Then Throw New ArgumentException("IP ist nicht im" & _
        "richtigen Format")
        Try
            client.ReceiveTimeout = 2000
            client.Connect(Ip, Port)
 
            ' sendBufferLenght(Buffer.Length, client)
            Dim bufDim(7) As Byte
            bufDim = GetBytes(Buffer.Length, 8)
            client.GetStream.Write(bufDim, 0, bufDim.Length)
 
            client.GetStream.Write(Buffer, 0, Buffer.Length)
            Dim bytes(client.ReceiveBufferSize) As Byte
            client.GetStream.Read(bytes, 0, CInt(client.ReceiveBufferSize))
 
            Dim returndata As String = System.Text.Encoding.ASCII.GetString( _
              bytes)
            client.GetStream.Close()
            client.Close()
            Return returndata
        Catch
            client.GetStream.Close()
            client.Close()
            Throw New Exception("Remote IP ist nicht erreichbar")
        End Try
 
    End Function