Example:

  1. Sub Main

    1. Dim TS As Single

      Dim TE As Single

      Dim TEL As Single

      TS = Timer

      MsgBox "Starting Timer"

      TE = Timer

      TT = TE - TS

      Print TT

    End Sub