Am Ende fehlt im der Sub ein Return und am Schluss ein End. Dann würde ich die LCD-Anzeige nicht dauernt Clearen "CLS"
Du benutzt ja schon Locate, setze nur die Änderungen mit genauen Locates.
Ich schau mal den Code weiter an...