Configurando um TextBox para aceitar apenas valores numéricos.

Descrição:

Como configurar um objeto TextBox para aceitar apenas a entrada de valores numéricos?

Solução:

Para isso, deve-se escrever um script no evento Change do TextBox. Por exemplo:

If Not IsNumeric(Value) Then
Set WshShell = CreateObject(“WScript.Shell”)
WshShell.SendKeys “{BACKSPACE}”
End If