Dim name1 = ze(zl - 13).Substring(0, 5)
            Dim name2 = ze(zl - 9).Substring(0, 5)
            Dim name3 = ze(zl - 5).Substring(0, 5)
            Dim Datum = ze(zl - 17).Substring(49, 8)
            Dim P1 = ze(zl - 11).Substring(15, 4)
            Dim P2 = ze(zl - 7).Substring(15, 4)
            Dim P3 = ze(zl - 3).Substring(15, 4)

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht