Input box med tal

Jeg skal lave en input box som man kun må skrive tal i, men jeg er tvunget til at kalde den for : Dim navn As String, istedet for Integer, fordi så virker Cancel knappen ikke.

Er der en løsning så man kun kan skrive tal og så cancel knappen også virker?

Har fundet frem til følgende:

Private Sub CommandButton1_Click()
  Dim navn As String
    navn = InputBox("Angiv en stykafgift", "Stykafgift hos producenten")
    If vbOK Then Range("C6").Value = navn