Comparar data

Olá!

Estou tentando comparar as datas de um cadastro para que na hora do cadastro possa fazer um teste com a data atual e com a data que o usuário escoheu para um agendamento. A data de agendamento não pode aceitar retroativa.

Sendo assim, fiz:

dia = day(now)

mes = month(now)

ano = year(now)

hora = hour(now)

minutos = minute(now)

segundos =second(now)

Fun_Data = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano)

if vardata_agenda < Fun_Data then

não aceita

else

aceita

Mas o que acontece é que ele compara as datas do mês atual, mas quando colocam data do próximo mês ele acusa falando que não pode.

Ou seja: se coloco 27/4/2009 o sistema não permite, pois não aceita a data atual e datas mais antigas que ela mesma, ok, certo, quando também coloco 29/4/2009, por exemplo, ele aceita, pois não é a data atual e não é antiga. Contudo, se faço 25/5/2009, por exemplo, ele não permite também, mas o certo é permitir já que a data do dia parece menor, mas o mês é maior e assim deveria permitir

Como fazer então que a data seja aceita não só pelos os dias do mês, mas também os dias do mês que virão ainda?

Desde já, agradeço

Marcelo