Option Explicit
Sub TimeRightNow()
Dim T as Date		//Declare Variable 
T = now				//Give Variable T return Value of now function

MsgBox Format(T, "mm-dd-yyyy mm:hh")	//Display Formatted Date 

End Sub