title: VBA Excel, mismatch for inputbox as integer
body: <p>My code</p>
  
  <pre><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
  </code></pre>
  
  <p>If I leave an empty field , Excel returns a <code>Type Mismatch</code> error. I would like to display a message.</p>