If No MsgBox Still Displays Message?

The following code is allowing me to stop or go ahead and delet a value.

If value deleted then msgbox value deleted sucesfully.

The problem now is that if I press cancel i still get msgBox for valur sucesfully deleted even though value has not been deleted.

What do i need to change in the code?

Code:
Private Sub CB3_Click()
Dim v
v = InputBox("Enter a new version number")
Range("A1").Value = v
Dim Found As Range

[Code] .....