Hour, Minute, Second

|

Sub sample()

    MsgBox Hour(Now) '時
    MsgBox Minute(Now) '分
    MsgBox Second(Now) '秒

End Sub