Es gibt im Netz einige Hinweise, dass man die 1.Eprom-Adresse besser nicht benutzt. Probier mal ganz am Anfang ein Dim eDum as eram word oder so einzufügen und dieses nicht weiter zu benutzen. Ansonsten ist der Code noch gut optimierbar.