Endlich mal ein kleiner Erfolg. Hab nach langer Suche noch nen kleinen Fehler gefunden durch den bei der dritten Stelle(fürs grad) immer nur ne 8 angezeigt wurde. Bei ....
Code:
For I = 1 To 10
   Read Segmente(i)....
... muss die 10 noch durch ne 11 ersetzt werden da sonst ja das elfte Zeichen nicht gefunden wird.

Als nächstes werd ich mal versuchen nen fotowiderstand als Helligkeitsregelung einzubauen.