Validar Formulario VBA

Te mando un ejemplo, sigue mis pasos:

-Dibuja un userform y dentro de él dibuja un textbox y un botón

-Después copia esta macro dentro del userform y prueba a introducir datos en el textbox y luego pulsa el botón.

Private Sub CommandButton1_Click()
'por luismondelo
If IsDate(TextBox1) Then
MsgBox "el dato introducido es una fecha"
Exit Sub
End If
If Not IsNumeric(TextBox1.Value) Then
MsgBox "el dato es texto"
Exit Sub
End If
If IsNumeric(texbox1) And TextBox1.Value < 0 Then
MsgBox "el dato es es numérico y menor que cero"
Exit Sub
End If
If IsNumeric(texbox1) And TextBox1.Value > 0 Then
MsgBox "el dato es es numérico y mayor que cero"
Exit Sub
End If
End Sub

Por favor, recuerda finalizar la consulta, es importante

Gracias, lo probaré pero en principio creo que me sirve.