il valore non è incrementato, perchè non hai associato nessuna azione all'evento Click del primo pulsante..

puoi risolvere più semplicemente così:


codice:
Dim X As Integer

Private Sub Command1_Click()
X = X + 1
End Sub

Private Sub command2_click()
MsgBox X
End Sub

cliccando sul primo bottone incrementi il valore di uno, mentre con il secondo visualizzi il contenuto della variabile