Calendar

Ich möchte, dass wenn ich meinen Calendar anklicke, das er kein Datum mehr annimmt, dass vor heute liegt. Hat vielleicht jemand eine Idee?

Hier mein bisheriger Quellcode:

Private Sub Calendar1_Click()

Sheets(1).Cells(1, 1).Value = Calendar1.Value
If Sheets(1).Cells(52, 4) < "Date" Then
MsgBox "Datum liegt vor heute!", vbExclamation, "Fehleingabe!"
End If
End Sub

Mein Fehler liegt bei "Date", da ich nicht weiß, wie ich das Datum mit dem heutigen Vergleiche. Das war mein Gedanke. Schöner wäre es, wenn er gar nicht erst ein altes Datum anzeigt.

Danke
Gruß Jörg