Variables en Barras de herramientas VB6

[Panxo]

Hola a todos, soy nuevo en el foro asi q un saludo para todos

Bueno espero que puedan resolverme esta duda q esta volviendome loco.

Tengo un problema a la hora de utilizar la barra de herramientas en visual basic 6.

Concretamente mi problema es:

Quiero que al pinchar sobre cada boton de la barra de herramientas una variable tome un valor diferente, para luego utilizarla para realizar unos cálculos.

Pero resulta que cuando me refiero a esa variable ( la de la barra de htas ) desde un procediemiento no toma ningun valor.

pongo un ejemplo del codigo q uso:

Option explicit

Dim VARIABLE as Single
Dim SUMA as Single

Public Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "boton1"
VARIABLE = 2

Select Case Button.Key
Case "otroboton"
VARIABLE = 4

Public Sub Procedimiento()
SUMA = ( VARIABLE * 2 )
text1.text=SUMA

cmdResultado
Call Procedimiento

Bueno basicamente es este el código,

1- declaro variables
2- en la barra de herramientas digo q al pinchar un boton la variable(VARIABLE) tome un valor u otro
3- creo un procedimiento para calcular y mostrar el resultado en un texbox
4- un boton q al darle llama al procedimiento y calcula y muestra el resultado en el texbox

El problema es q sale cero, la VARIABLE no toma ningún valor.

Bueno gracias por anticipado por la ayuda, un saludo