Some Imp function

Function getTimeStamp()
    sHour = CStr(String(2 - Len(Hour(Now)), "0") & Hour(Now))
    sMin = CStr(String(2 - Len(Minute(Now)), "0") & Minute(Now))
    sSecond = CStr(String(2 - Len(Second(Now)), "0") & Second(Now))
    sMillSecond = CStr(Right(Replace(Timer, ".", ""), 2))
    getTimeStamp = Day(Now) & MonthName(Month(Now), True) & Year(Now) & "_" & sHour & sMin & sSecond & sMillSecond
End Function