?-? さん、流れ者さんの指摘も参考にしつつ、
単純にウチの環境では vbKeyDecimal(110) ではなく vbKeyDelete(46) って出ましたｗｗ
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21733995.html
同様の質問が検索に引っ掛かったので、ボクの環境固有ではないらしい。
サービスパックは５です。
sp5

    Debug.Print Now

    Debug.Print KeyAscii

    Debug.Print Chr(KeyAscii)

    Debug.Print Chr(vbKeyDelete)

    Debug.Print Chr(vbKeyDecimal)

    Debug.Print (Not IsNumeric(Chr$(KeyAscii)))

    Debug.Print (KeyAscii <> vbKeyBack)

    Debug.Print (KeyAscii <> vbKeyDecimal)

    Debug.Print (Not IsNumeric(Chr$(KeyAscii)) _

    And KeyAscii <> vbKeyBack _

    And KeyAscii <> vbKeyDecimal) 

> 2009/08/20 15:24:25 
>  46 
> .
> .
> n
> True
> True
> True
> True