Problemas Com Datas

[Halfar]

VEJA O CODIGO ABAIXO

If IsDate(Vencimento) = True Then
Var = NADA
Else
data = Conversion.CDate(Vencimento)
End If

A VARIAVEL VENCIMENTO não É DO TIPO DATA, PORQUE TESTEI O ISDATE E RETORNOU FALSO. então O ELSE CONVERTERÁ A VARIAVEL VENCIMENTO EM CAMPO DATA.

SÓ QUE DÁ ERRO... TYPE MISMATCH

[kuroi]

o certo seria o contrario:

If IsDate(Vencimento) = True Then
data = Conversion.CDate(Vencimento)
Else
Var = NADA
End If

pois se Vencimento não é uma data valida, você não conseguira converte-la.