Sub EntryDate()

Dim sDate As String, sTime As String

// "DDD" only returns a small-letter weekday
sDate = Format(DateValue(Now()), "yyyy-mm-dd DDD")

sTime = Format(TimeSerial(Hour(Now()), Minute(Now()), Second(Now())), "hh:mm:ss")

Selection.Text = "(" & sDate & ", " & sTime & ")"

End Sub