Variable Olympics For VBA (Long vs Integer)

 Sub VariableOlymics()
    Dim beginTIME As Double, trials As Long, i As Long, p As Long

        trials = 100000000
        p = 0

        beginTIME = Now
        For i = 1 To trials
            Call boomBYTE
        Next i
        Call Finished(p, Now - beginTIME, CDbl(trials))
        p = p + 1

        beginTIME = Now
        For i = 1 To trials
            Call boomINTEGER
        Next i
        Call Finished(p, Now - beginTIME, CDbl(trials))
        p = p + 1


        beginTIME = Now
        For i = 1 To trials
            Call boomLONG
        Next i
        Call Finished(p, Now - beginTIME, CDbl(trials))
        p = p + 1


        beginTIME = Now
        For i = 1 To trials
            Call boomDOUBLE
        Next i
        Call Finished(p, Now - beginTIME, CDbl(trials))
        p = p + 1


        beginTIME = Now
        For i = 1 To trials
            Call boomUNDECLARED
        Next i
        Call Finished(p, Now - beginTIME, CDbl(trials))
        p = p + 1

    End Sub


    Private Sub boomBYTE()
    Dim a As Byte, b As Byte, c As Byte

        a = 1
        b = 1 + a
        c = 1 + b
        c = c + 1

    End Sub


    Private Sub boomINTEGER()
    Dim a As Integer, b As Integer, c As Integer

        a = 1
        b = 1 + a
        c = 1 + b
        c = c + 1

    End Sub


    Private Sub boomLONG()
    Dim a As Long, b As Long, c As Long

        a = 1
        b = 1 + a
        c = 1 + b
        c = c + 1

    End Sub


    Private Sub boomDOUBLE()
    Dim a As Double, b As Double, c As Double

        a = 1
        b = 1 + a
        c = 1 + b
        c = c + 1

    End Sub


    Private Sub boomUNDECLARED()

        a = 1
        b = 1 + a
        c = 1 + b
        c = c + 1

    End Sub

    Private Sub Finished(i As Long, timeUSED As Double, trials As Double)

        With Range("B2").Offset(i, 0)
                .Value = .Value + trials
                .Offset(0, 1).Value = .Offset(0, 1).Value + timeUSED
        End With

    End Sub