Code stopt bei Chr

Public Sub TastaturAusschalten()
'Tastatur Ausschallten
Dim i As Integer
On Error Resume Next
For i = 1 To 255
Application.OnKey Chr(i), ""
Application.OnKey "^" & Chr(i), ""
Application.OnKey "%" & Chr(i), ""
Application.OnKey "+" & Chr(i), ""
Application.OnKey "%{F11}", ""
Next i
Application.OnKey "{+}", ""
Application.OnKey "{DEL}", ""
Application.CellDragAndDrop = False
End Sub

nun läuft dieser Code beim mir zu Hause Excel 2003 aber bei mir auf Arbeit Excel 97 stopt dieser Befehl auf manchen Rechnernn nicht bei allen. An der ersten Stelle wo steht Chr stopt der Code. Wenn dieses geschieht kann ich auch im Code den Befehl Format nicht verwenden. Der Kompilierer stopt dann beim Wort Format und schreibt " Befehl "nicht gefunden.
Besser kann ich den Fehler nicht beschreiben. Habe auch auf Arbeit keine Adminrechte.
Passiert auf dem gleichen Rechner auch nicht immer.
Danke für das lesen
Steffen