Füge mal dies noch oben bei den DIMs hinzu:
Dim ___lcdno As Byte

Gruß

Rolf