InputBox: Cancel/X properties

This macro adds a comment to a cell and some text from an input box. I store the last value entered in the input box via the registry, it is recalled as the default input box value.

How do I capture the cancel property (Boolean, true or false?) so the ActiveCell.Value remains and comment is not added?

When a user selects Cancel/X the macro deletes the value in the cell and add's a comment. This overwrites existing data with "" (nothing).

The VBA help file wasn't very helpful, or, I did not know what to look for.

Sub AddComment()
'Special thanks to shg of excelforum.com

Dim x As String
Dim y As String

x = GetSetting("LastComment", "Variables", "x")
x = InputBox("Enter text", "Enter Comment", x)
SaveSetting "LastComment", "Variables", "x", x

With ActiveCell
    If Not .Comment Is Nothing Then .Comment.Delete
        .AddComment.Text Text:="35:" & vbLf & _
                "Do not delete comment"
        .Value = x
End With
'If user selects "Cancel/X" cell value is deleted and comment added?
End Sub

Any hints, tips or examples are appreciated.

If you use Application.Inputbox rather than Inputbox, then the Cancel returns False rather than "". If "" is not acceptable anyway, then uset eh version you have and just check that the length of the returned value is greater than zero.

I think understand your post, but I recall the last value (default value) thus the length will always be greater than zero.

Using application.inputbox sets the cell value to "False" when I use the Cancel button? (overwrites the cell value).

There's no cell value involved - your variable will be set to False if you use the Application version

Now you did it! You made me think!

Thank you.

Sub AddComment()

'Special thanks to shg and romperstomper of excelforum.com

Dim x As String
Dim y As String
Dim z As String

z = ActiveCell.Value
x = GetSetting("LastComment", "Variables", "x")
x = Application.InputBox("Enter text", "Enter Comment", x)
SaveSetting "LastComment", "Variables", "x", x

With ActiveCell
    If Not .Comment Is Nothing Then .Comment.Delete
        .AddComment.Text Text:="35:" & vbLf & _
                "Do not delete comment"
        .Value = x
        If x = "False" Then
        .Comment.Delete
        .Value = z
        End If
End With
End Sub