Formato fecha visual basic

Tengo un código que compara que el valor de la celda sea igual a la fecha de hoy, el problema que el formato de la fecha en la celda es numérico 20140114, y no se como cambiar el formato de la fecha en visual basic para que el valor de la variable fecha sea igual al que esta comparando en la celda, agrego mi código.

Sub VAlidarFechadeArchivo()
Fecha = Format(Date, yyyy, mm, dd)
If Sheets("BASE").Range("D9") <> Date Then
MsgBox "Validar Información ", , "ERROR Fechal"
Exit Sub
End If
Call cuentaSINFONDOS
End Sub