Devi usare Datediff, vedi questo esempio copiato dall'help:

codice:
Dim TheDate As Date    ' Dichiara le variabili.
Dim Msg

TheDate = InputBox("Digitare una data")
Msg = "Giorni dalla data odierna: " & DateDiff("d", Now, TheDate)
MsgBox Msg
Ciao