Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Private Sub cbSetText_Click()
MsgBox myTextbox.Value
End Sub
Private Sub myTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < vbKey0, Is > vbKey9
KeyAscii = 0
Beep
End Select
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment