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.