wenn das dein ganzer Code ist kann das gar nicht funktionieren. Dim S1 as (weiß nich)??? Würde eventuell helfen.

Und eventuell würd ich auch erwägen W1 erstmal zu dimeln.

Ist überhaupt notwendig, alles ausm eeprom zu lesen? wenn nicht, würd ichs lassen und es hardcoden.