Hola,
principefreddy. Te agradecería si antes de pasar a otra duda, por lo menos digas si ha funcionado lo que te dijimos

.
Lo de comparar con la fecha actual, si lo tienes en una variable tipo Date, puedes hacer una comparación normal:
Código vb:
Ver originalIf Fecha > Date Then
MsgBox "Fecha mayor a la actual"
End If