Mega Code Archive - VisualBasic Script - Data Type - Time returns A VariantDate containing the current time according to your computer

Sub dateDemo12() Debug.Print time End Sub