Excel VisualBasic Script

Sub dateDemo7()
   Debug.Print Minute(Date)
End Sub