Dim TOD As  TIME_OF_DAY_INFOCopyMemory TOD, ByVal pBuffer, Len(TOD)