Grazie davvero, ora funziona!

Però ancora una cosa, perchè forse funziona solo per fortuna ...
Nella Sub KeyPress imposto e.KeyChar = ChrW(0) , perchè e.KeyChar = 0 non me lo accetta

Forse così facendo è come se premessi il tasto 0 della tastiera

Ciao