Tid til en bedstemt dato (2)

Ja som man kan gå tilbage og kigge gav arne_v mig et svar på hvordan man udregner tid fra en dato til en anden. I dage,timer,minutter.

Jeg har så forsøgt at lave koden lidt om så jeg også får sekunder med:
Private Sub form_load()
Dim d2, d1 As Date
    Dim t As Long
    Dim d, h, m, s As Integer
    d1 = Now()
    d2 = CDate("13/10/2006 19:00")
    t = DateDiff("S", d1, d2)
    d = t \ (24 * 60) \ 60
    h = (t \ 60 \ 60) Mod 24
    m = (t \ 60) Mod 24
    s = t Mod 60
    Text1.Text = d & " dag(e) " & h & " time(r) " & m & " minut(ter) " & s & " sekund(er)"
  Open "C:\Program Files\mIRC\countdown.txt" For Output As #1
Print #1, "Tid til VHCamp #4 start: " & Text1.Text
Close #1
End Sub


Jeg kan sagtens få den til at passe men efter 10 - 15 min bliver den af en eller anden grund upræcis.
Jeg har en mistanke om at problemet er her:  t = DateDiff("S", d1, d2)

Jeg ved nemlig ikke hvad man skal kalde sekunder, har forsøgt med "s", "S", "ss" osv.