VBA Excel, incompatibilité de inputbox as integer

Mon code

Dim a As Integer
a = InputBox("Enter the number", "Program", "", 7000, 6000)
If a = Empty Then
    ' do code...
Else
    MsgBox "Enter the number."
End If

Si je laisse un champ vide , Excel renvoie une Type Mismatch erreur. Je voudrais afficher un message.

OriginalL'auteur Oskar Strasburger | 2013-02-11