Dim Schrittanzahl As Int32
            Schrittanzahl = alSKDB_G1.Count()
 
            'Arrays (Schritte) übergeben um die Schrittbezeichnung auszulesen
            Dim y As Int32
            For y = 0 To Schrittanzahl - 1
                'Item von Arraylist an Array übergeben
                arrSchritt = CType(alSKDB_G1(y), String())
                'Schrittbezeichnung hinzufügen
                Dim Kontrolle As String
                Kontrolle = arrSchritt(0)
                Kette_G.lsboxKette.Items.Add(arrSchritt(0))
            Next