You're correct - I missed a step when I was posting that - the CurDT one looks like the way to go.
Function CurDT
Dim s_oWMIService, s_colItems, s_oItem
Dim s_sLocalDateTime, s_iLocalMonth, s_iLocalDay, s_iLocalYear
Dim s_iLocalHour, s_iLocalMinute, s_iLocalSecond
Dim s_MMDDYYYY...