TriState InputBox

'With the InputBox you cannot distinguish between the cases
'
'  a:- Cancel clicked
'  b:- nothing entered and OK clicked
'
'because in both cases the returned string is a vbNullString
'
'There is a simple trick however as is shown in this little code snippet:
 Dim UserInput As String
  UserInput = InputBox("Please type in nothing or some text and click OK or Cancel", "Distinguish")
  Select Case True
   Case StrPtr(UserInput) = 0
    MsgBox "You clicked Cancel"
   Case Len(UserInput)
    MsgBox "You typed """ & UserInput & """ and clicked OK"
   Case Else
    MsgBox "You typed nothing and clicked OK"
  End Select
End Sub