Te sale un 1 poorque siempre estas inicializando la variable al hacer el click. Lo correcto sería:
Código vb:
Ver originalSub form_load()
a=1
End Sub
Sub Boton_click()
a=a+1
print a
End Sub
Bueno, se puede perfeccionar bastante (podes agregar un boton para resetear el contador y volver al inicio, etc) pero la idea es esa, poner la variable incial fuera del procedemiento que incrementa el contador... Espero te sirva de ejemplo, cualquier duda avisa nomas y vemos que hacer....