Hola eruddy:
Si este es el dato que estás intentando convertir en fecha:
20020101
no me extraña que te dé el error, puesto que esto no es una expresión que pueda tomar valores de fecha.
Debes pasar a CDate(dFecha) un valor que se pueda tomar como fecha. Para comprobar este término puedes utilizar previamente la función IsDate(cFecha) para saber si el valor que le pasas se puede convertir en un variant de subtipo Fecha.
Espero esto te ayude, un saludo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>