I found the following code that provides the function I need (sorry, I forgot to snag contributor's name).
Private Sub txtPriCO1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyBack, vbKeyClear, vbKeyDelete, _
vbKeyLeft...