Regne problem

Jeg har lavet et lille program som fortæller hvor lang tid der er til jeg skal rejse.

Det virker, men jeg synes det er lidt synd at min cpu skal køre alle de loop's der, er der ikke en bedere måde man kan regne det ud på?

Kode:

dim ftimer, fmin, fsek

fsek = datediff("s", now, "23-09-2003 19:50")

fmin = fsek / 60
ftimer = fmin / 60

do until fmin < 60
    fmin = fmin - 60   
loop
do until fsek < 60
    fsek = fsek - 60   
loop

msgbox clng(ftimer) & ":" & clng(fmin) & ":" & fsek