Como hacer un contador con un boton

[Sergestux]

De hecho aun tiene que declarar la variable a, como global afuera de los dos procedimientos (load y click)

Código vb:

Dim a As Integer
 
Sub Boton_click()
    a = a + 1
    Debug.Print a
End Sub
 
Private Sub Form1_Load()
    a = 1
End Sub