VBA Code to stop Running once the Todays date reached mentioned date

Dear Experts,

Below I have a sample VBA Code, basically I want this program to peform (Whenever use runs it) till 06 May 2018. Once today’s date is greather than or equal to 07 May 2018, It has to show below Error Message and Exit Sub!

Sub Trial ()
   Dim myDate As Date, aDate
    myDate = Date
    aDate = Format(Now, "dd.mm.yyyy hh:mm:ss")
    
   ***Few of my Codes***
    
    If aDate <= #5/6/2018# Then
   ***Few of my Codes***
    Else
    MsgBox ("File & Program Need Upgradation, Please Review")
    End If
End Sub

Please Review and amend above code accordingly!

Thanks & Regards,
Rajeshkumar R