Usa la Funzione DateADD che è più adatta...:
Function DateAdd(Interval As String, Number As Double, Date)
Membro di VBA.DateTime
Da usare così
=DateAdd(“h”,-3, [ora_ritiro])
Questa è la prova, attenzione al formato...
?Dateadd("h",3,"15:00:02")
18:00:02
?Dateadd("h",-3,"15:00:02")
12:00:02