' --- Deklaration
        Dim blByteWerte As New List(Of Byte)
        Dim blTempByteWerte As Byte()
        Dim Zahl As UInt32 = 2000
 
        ' --- Konvertierung des Uint in ein Array (Feld) von Bytes
        blTempByteWerte = System.BitConverter.GetBytes(Zahl)
 
        ' --- ForSchleife die Rückwärtsläuft
        For i As Integer = blTempByteWerte.Length - 1 To 0 Step -1
            ' --- Übergeben der Bytes in eine Liste von Typ Byte
            blByteWerte.Add(blTempByteWerte(i))
        Next