Dim Tm1(5) as Byte at &h60
belegt die Adresse 60 (Hexadezimal) im Speicher fünf mal. Ich glaube wohl, das das so nicht geht.

Ich komm grade von der Arbeit und hab jetzt echt kein Nerv mir den Code noch anzuschauen, Sorry.
Falls ich morgen zeitig Feierabend habe schau ich mal drüber sofern keiner schneller war. Ich will aber auch niemanden abhalten den Code selbst zu testen.