Ciao, puoi convertire in un numero di tipo Double, e successivamente, se ti serve, recuperarne il valore...
codice:
Dim dblDataOra As Double
Dim dataOra As Date
dataOra = Now
dblDataOra = CDbl(dataOra)

'data in formato double
MsgBox dblDataOra 

'recupero della data
MsgBox CDate(dblDataOra)