You're limited to 15 digits with a floating point number,
so you will probably be wanting to construct a string
with your unique ID.

Dim UniqueID As String
UniqueID="Q1234567" & Format(Date,"yyyymmdd") & Format
(Time,"hhmmss")