Function timeStamp(byval s) If s = "ms" Then timeStamp = DateDiff("s","1970-01-01 08:00:00",date)*1000 + int(cdbl(timer())*1000) Else timeStamp = DateDiff("s","1970-01-01 08:00:00",Now) End If End Function