Este fórum está sendo desativado

[Marcos]

Boa Tarde!

Desenvolvi um Formulário. Porem preciso que uma determinada caixa de texto aceite somente números, para que possa ser calculada dentro de uma macro. Oque posso fazer?

[JeanHard]

Boa tarde meu amigo.
Use assim:

Private Sub TextBox1_Change()
With Me.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Desculpe apenas números", vbInformation, "Alerta do Sistema"
.Value = vbNullString
End If
End With
End Sub