Validación

Si quieres que siempre sean Números enteros
Private Sub TextBox1_AfterUpdate()
'si no esta vacio, convierte a formato Numero
If Not TextBox1 = "" Then
    TextBox1.Value = Fix(TextBox1.Value)
End If
End Sub
Si quieres que solo acepte Números
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Solo acepta Numeros (0 - 9)
If KeyAscii < 48 Or KeyAscii > 57 Then
    KeyAscii = 0
End If
End Sub