Dim PrüfDatumvon As Date ??
Dim PrüfDatumbis As Date ??
 
If DateTime.Now < PrüfDatum Then
            '("Eingabe noch gültig")
ElseIf DateTime.Now > PrüfDatum Then
            '("Eingabe nicht mehr gültig")
        End If