Visual Basic - incrementar un numero

Hola amigos,
Alguien podria decirme como, al dar un click en un botón se incremente un numero, si tengo en una forma un Text con un num. ejem. 3000 y cada que de click en el botón me incremente de 1 en 1.
gracias, de antemano.

En el codigo en el evento :

sub Texto_click()

texto.text = texto.text + 1

endsub

Crea un commmand y en el codigo escribes text1.text + 1