Prima cosa usa i tag per il codice.
Poi se ti si dice che il parametro KeyAscii restituisce il codice del tasto premuto e che lo devi forzare= 30... perché tu lo controlli se vale 30..?
Private Sub IDCartaricarica_KeyPress(KeyAscii As Integer)
KeyAscii = 30
End Sub
Questo qualsiasi tasto da tastiera premi nel controllo viene ANNULLATO.