Public Sub SendMessage(ByVal Ip As String, ByVal Port As Integer, ByVal _
     Message As String)
        Dim tempclient As 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
            tempclient = New System.Net.Sockets.TcpClient
            tempclient.Connect(Ip, Port)
            sendBufferLenght(Buffer.Length, tempclient)
            tempclient.GetStream.Write(Buffer, 0, Buffer.Length)
            tempclient.Close()
        Catch
            tempclient.Close()
            Throw New Exception("Remote IP ist nicht erreichbar")
        End Try
    End Sub