Visual Basic - URGE pasar de char a date

Sé que es algo sencillo pero de momento no recuerdo como pasar de tipo char a date..... les agradesco me ayuden, es para lo antes posible.
Muchas gracias

Con la función CDate

DATEVALUE(CADENA)

Esta función te detecta si la fecha no es correcta como un 29 de Febrero, etc.

Saludos

Si quieres detectar los errores establece las siguientes sentencias en el suceso LOSTFOCUS, la caja de texto se llama FECHA

Private Sub fecha_LostFocus()
On Error GoTo errores
a = DateValue(fecha)
Exit Sub
errores:
Beep
MsgBox "La fecha introducida ES IMPOSIBLE"
' COLOCA LA FECHA CON EL AÑO CON 4 CIFRAS
fecha = Left(Date, 6) + "20" + Right(Date, 2)
fecha.SetFocus
Resume Next
end sub