Visual Basic - Contar dias que faltan para cumpleaño, vb

Dim fechaCumple As Date

fechaCumple = "2019/08/05"

If fechaCumple > Date Then

    MsgBox "Faltan " & fechaCumple - Date & " Dias para mi cumple "

End If

Dim fechaCumple As Date

' suponiendo que A2 esta la fecha de tu cumpleaños este año

If range("A2").value  > range("b2").value Then 'suponiendo que en B2 esta la fecha de hoy

    MsgBox "Faltan " & range("A2").value  - range("b2").value & " Dias para mi cumple "

End If