Zellkommentar mit Datum versehen

Ich möchte per VBA in Excel eigene Kommentare (Quickinfo) an Zellen anhängen, weil ich über den angebotenen Kommentar nicht die Möglichkeit habe, das aktuelle Datum anzeigen zu lassen.
Sub Kommentar()
   On Error Resume Next
   With ActiveCell
      .AddComment
      .Comment.Text Text:=Format(Now, "DD.MM.YYYY") &  _
           Chr(10) & "Das ist ein Test !"
   End With
End Sub