Click del ratón

Dim i As Integer
Private Sub cmdboton_Click()
i = i + 1
MsgBox i
End Sub