Te envío un pequeño, espero te sirva. Cada vez que el usuario hace click en la caja de texto se va almacenando el valor en una variable y luego lo muestro al hacer click en el Command1.
Option Explicit
Dim X As Integer
Private Sub Command1_Click()
MsgBox X
'Reinicio la variable para poder usarla de nuevo.
X = 0
End Sub