Private Function SendMessage(ByVal Adress As String, ByVal Port As Long, ByVal _
  Message As String)
        Dim Bytes As Byte()					'Variable für die zusendenen Daten erstellen
        Dim UDPClient As New UdpClient				'UDP Client erstellen
        Bytes = Encoding.ASCII.GetBytes(Message)		'String zu Byte konvertieren
        UDPClient.Send(Bytes, Bytes.Length, Adress, Port)	'Daten versenden
        UDPClient.Close()					'UDP-Client schließen
        End Function

Private Function GetMessage(ByVal Port As Long) As String
        Dim UDPClient As New UdpClient								'UDP Client erstellen
        Dim RemoteIpEndPoint As New System.Net.IPEndPoint( _
          System.Net.IPAddress.Any, Port)	'IPEndPoint erstellen
            Dim receiveBytes As [Byte]() = UDPClient.Receive( _
            RemoteIpEndPoint)			'Empfangene Daten auslesen
            Dim returnData As String = Encoding.ASCII.GetString( _
            receiveBytes)			'Byte zu String konvertieren
            GetMessage = returnData.ToString							'Daten zurückgeben
            UDPClient.Close()									'UDP-Client schließen
        End Function