validering af datofelt

Jeg har nedenstående validering, det jeg skal have den til at hvis der i FormDatefld er tastet en dato før Date() skal den vær invalid. Men det virker bare ikke. Nogen ideer ?

        FormDateFld = Trim(Request.Form("DateFld"))
        FormDescription = Trim(Request.Form("Description"))
        FormCertType = Trim(Request.Form("CertType"))
        FormHTML = Trim(Request.Form("HTML"))
               
        If NOT IsDate(FormDateFld) Then
            Errors = True
            'Red
            MSGColor = "#ff0000"
            MSG = "Please type correct date"
        ElseIf FormDateFld < Date() Then
            Errors = True
            'Red
            MSGColor = "#ff0000"
            MSG = "The date can be no earlier than today !"
        ElseIf FormDescription = "" Then
            Errors = True
            'Red
            MSGColor = "#ff0000"
            MSG = "Please type a description"
        ElseIf FormCertType = "" Then
            Errors = True
            'Red
            MSGColor = "#ff0000"
            MSG = "Please type a Certificat type"
        ElseIf FormDescription = "" Then
            Errors = True
            'Red
            MSGColor = "#ff0000"
            MSG = "Please type a description"       
        End If