licens udløb

Hvordan kan jeg udvide vedlagte makro, til at når dato er overskreden, at programmet lukkes.
Private Sub Workbook_Activate()
"If Date > #6/1/2007# Then

        MsgBox ("Licensen er udløbet og skal fornyes")

   
    End If
   
End Sub"

MVH
HHB