Sub Test1()
        Dim Liste_Test  As System.Collections.Generic.List(Of Byte) = Nothing
        Dim n           As Integer = Nothing
        'Wieviele wirklich drin sind weiß ich natürlich nicht
        Dim x           As Integer = 50
        Dim meinByte_Einzeln As Byte = Nothing
 
        Liste_Test = New System.Collections.Generic.List(Of Byte)
 
        For n = 0 To x
            meinByte_Einzeln = wertausverarbeitung(n)
            Liste_Test.Add(meinByte_Einzeln)
        Next
 
 
    End Sub