[RESOLVED] Anything wrong with this code?

[RhinoBull]

Try this instead:

Option Explicit

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Form_Load()
Dim myStartTime As Long

    myStartTime = timeGetTime / 1000
    Debug.Print DateAdd("s", -myStartTime, Now)

End Sub