Private udpEndpoint As UdpClient
 
    Private Sub StartEndpoint()
 
        Dim netIP As IPEndPoint = New IPEndPoint(IPAddress.Any, 514)
        udpEndpoint = New UdpClient(netIP)
        ReceiveDataAsync(udpEndpoint)
 
    End Sub
 
    Private Sub StopEndpoint()
        udpEndpoint.Close()
    End Sub
 
    Private Async Sub ReceiveDataAsync(udp As UdpClient)
 
        While True
            'Daten asynchron empfangen
            Dim result As UdpReceiveResult
            Try
                result = Await udp.ReceiveAsync()
            Catch ex As ObjectDisposedException
                ' Socket wurde geschlossen.
                Return
            End Try
 
            Dim byteData As Byte() = result.Buffer
            Dim strData As String = Encoding.ASCII.GetString(byteData)
            WriteLog(strData)
        End While
 
    End Sub