yeni saat bulma sorunu

mevcut saatten belirtilen dakikayı çıkartıp yeni saati bulmak istiyorum olmuyor

Dim a, b As Date
Dim c, d, e As Long


a = TimeValue("00:10:13")
b = Format(Now, "hh:nn:ss")
c = DateDiff("h", a, b)
d = DateDiff("n", a, b)
e = DateDiff("s", a, b)


f = TimeSerial(c, d, e)

en alt satırda hata veriyor.

Cozuldu

Calismadi hata veriyor