Suche in Kommentaren

Sub kommentar_suchen()
Dim varAbfrage As Variant
Dim comZelle As Comment
varAbfrage = InputBox("Bitte Suchbegriff eingeben:")
If varAbfrage  "" Then
For Each comZelle In ActiveSheet.Comments
If InStr(comZelle.Shape.DrawingObject.Text, varAbfrage) > 0 Then
ActiveSheet.Range(comZelle.Parent.Cells.Address).Select
Exit For
End If
Next comZelle
End If
End Sub

.... dieser Code zeigt mir die erste Zelle mit der ersten Übereinstimmung an - jedoch kann ich mir keine weiter mit einer Übereinstimmt anzeigen lassen.
Am liebsten wäre mir - das dann ein Dialog mit "... Weitersuchen ... Ja / Nein" erscheint.
Könnt ihr mir helfen?
Danke
Claudio