Imam već proceduru sa proverom da li je uneta vrednost numerik, i poništavanjem unosa ukoliko to nije slučaj, ali pošto se radi o kasi i unosu količina, zaključio sam da je to samo gubljenje dragocenog vremena... Dakle, kako uvesti restrikciju na unos slova i ostalih nenumeričkih znakova u InputBox-u?
Napominjem da InputBox pozivam na F12, nešto otprilike kao:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF12
Me.Koliko = InputBox("KOLIČINA?", "Unesi koliko", 1)
End Select
End Sub