Может быть это поможет вам:
Вы можете разрешить / запретить определенные кнопки в KeyPress-Event
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case asc("0") To asc("9"), 8, 32, asc(",")
'allow signs
Case Else
KeyAscii = 0 'forbid everything else
End Select
End Sub
ПРИМЕЧАНИЕ.быть введеннымВам нужно адаптировать его для вашего случая.
Вот еще одна страница с почти таким же примером, но на английском языке: LINK