Textbox

Suponiendo que el textbox se llama TextBox1, entonces en el evento Exit debes poner algo como...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Text = Evaluate(TextBox1.Text)
End Sub

Pues por que simplemente no pones lo que te pasé con la modificación del control de error
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Goto Salida
TextBox1.Text = Evaluate(TextBox1.Text)
Exit Sub
Salida:
MsgBox "Solo puede ingresar un número", vbCritical
End Sub

Gracias Gustavo desde ya por tomarte la molestia de contestarme. He intentado implementar sin éxito lo que me propusiste.
Las operaciones que debería permitir el textbox serian de + y -
Como yo lo tengo armado hasta ahora es así:
1º un evento de textbox KeyUp que se fija si el valor que se ingreso en el textbox es Enter y no esta vacío:
If KeyAscii = 13 And Trim(TextBox1.Text) <> "" Then
2º Si esto se cumple envío los datos a otra función para validar que los datos sean numéricos
Private Sub AceptarCant(ByVal cant As Variant)
If IsNumeric(cant) Then
Hasta ahí he llegado si puedes darme una mano te lo agradeceré, el código completo es el siguiente:
Private Sub TextBox1_KeyUp(ByVal KeyAscii As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyAscii = 13 And Trim(TextBox1.Text) <> "" Then
AceptarCant TextBox1.Text
End If
End Sub
Private Sub AceptarCant(ByVal cant As Variant)
If IsNumeric(cant) Then
If CInt(cant) < 1 Or CInt(cant) > 10 Then
TextBox1.Text = ""
TextBox1.SetFocus
MsgBox "Solo puede ingresar un Número entre 1 y 10", vbCritical
Else
TextBox2.Enabled = True
cantidad = CInt(TextBox1.Text)
bandera = CInt(TextBox1.Text)
TextBox1.Enabled = False
TextBox2.Enabled = True
TextBox2.SetFocus
End If
Else
TextBox1.Text = ""
TextBox1.SetFocus
MsgBox "Solo puede ingresar un Número", vbCritical
End If
End Sub
MI MAIL ES [email protected]