Grazie ai vostri consigli ho trovato un modo veloce
ed abbastanza pulito per fare quello che cercavo.

Lo scrivo in modo che possa servire anche ad altri:

Private Sub txtCampo_KeyPress(KeyAscii As Integer)
If (((KeyAscii < 48) Or (KeyAscii > 57)) And ((KeyAscii <> 13) And (KeyAscii <> 8) And (KeyAscii <> 188) And (KeyAscii <> 46))) Then
KeyAscii = 0
End If
End Sub


Grazie.