The Click event is fired when the user clicks the button. 

The following sample changes the button's caption when user selects a new item:

Private Sub MenuButton1_Click()
    With MenuButton1
        .Caption = PopupMenu1(.LastID).Caption
    End With
End Sub