Escriba un Número Entero

Private Sub Command1_Click()
Dim a As Integer
a = InputBox("escriba un numero entero", 0)
End Sub