Private Sub Command1_Click()
Dim GHalley As Date
 
  GHalley = "4/20/1910"
 
 
 
  Do While GHalley < Date
    GHalley = DateAdd("yyyy", 76, GHalley)
    MsgBox "Vorherige und nächtes Erscheinen: " & GHalley
  Loop
 
End Sub