If Text1.Text <= DateTime.Now Then
MsgBox "Loquesea"
End If