Excel Date & Time Functions

Sub Time_Now()
Dim s As String
s = Now()
Cells(1, 1) = s
End Sub