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