[aldery]

كود :

       Label1.Text = DateString
       If Label1.Text = "2020-03-05" Then
           MsgBox("أنتهى التاريخ ")
       End If

هذا الكود أتوقع سوف يساعدك