Visual Basic - Problema barra herramientas

Hola a todos,

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

Dim VARIABLE As Single
Dim SUMA As Single

Private Sub cmdResultado_Click()
Call Procedimiento
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "boton1"
VARIABLE = 2
Case "otroboton"
VARIABLE = 4
End Select
End Sub

Public Sub Procedimiento()
SUMA = (VARIABLE * 2)
Text1.Text = SUMA
End Sub

supongo que ya en tu formulario tienes un control Toolbar (ToolBar1) con 2 botones, un TextBox (Text1) y un CommandButton (cmdResultado)