Excel VBA, Timer

Sub timerBasics()

    Dim current_time As Single
        
    current_time = Timer

    MsgBox current_time             ' elapsed second from 00:00:00
    MsgBox current_time / 60       ' elapsed minute from 00:00:00
    MsgBox current_time / 3600    ' elapsed hour from 00:00:00
    
End Sub