Kommentar mit Schaltfläche einfügen

Private Sub CommandButton1_Click()
If (MsgBox("Wollen Sie einen Kommentar einfügen?", vbYesNo + vbQuestion, "Neuer Abruf")) =  _
vbYes Then
Dim myCom As Comment
Dim myText As String
On Error Resume Next
myText = InputBox("Bitte Kommentar eingeben")
myText = Replace(myText, ".", "." & vbLf)
ActiveCell.Comment.Delete
Set myCom = ActiveCell.AddComment
With myCom
.Visible = True
.Text Text:=myText
.Shape.LockAspectRatio = msoFalse
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Dieser funktioniert auch bestens; in der Zelle, in der der Cursor steht, wird der Kommentar eingefügt. Ich möchte nun den User aber noch fragen, ob er in dieser Zelle einen Kommentar eingeben will. Also z.B. "Wollen Sie in Zelle A4 einen Kommentar einfügen?"
Da ich mit VBA noch nicht zu bewandert bin, schaffe ich das nicht alleine. Kann jemand weiter helfen?
Vielen Dank und Gruss
Ben