something like this:

Code:
Dim MyLoop As Long
Dim Timed As Single

Timed = Timer

For MyLoop = 1 to 1000000

    Call MySub()

Next

Label1.Caption = Str(Timer - Timed)

Public Sub MySub()

    Dim X As Integer
    X = X + 1

End Sub

Have one button like that and another with a different named sub in a module. You can format the timer better than this but I'm typing this off the top of my head and I can't remember the params for the Format() function