you could omit the type=1 and deal with what's returned, something along the lines of
Code:
Sub Macro1()
'
' Macro1 Macro
Dim lnWins As Variant
lnWins = Application.InputBox("give me something")
Select Case lnWins
Case ""
MsgBox "InputBox was left blank"
Case False
MsgBox "Things got canceled"
Case Else
MsgBox lnWins
End Select
End Sub