Esta forma la uso yo en casillas donde solo pueden haber numeros enteros. En caso de que se escriba cualquier otra cosa su valor cambia a cero y asi no da problemas con operaciones matematicas etc....
Private Sub Text1_Change()
If Not Text1.Text = Int(Text1.Text) Then
Text1.Text = "0"
End if
End Sub
Espero que te sirva tambien!