如何为自定义的按钮添加快捷键？

office83

    Dim myBar As CommandBarButton

    Set myBar = Application.CommandBars(1).Controls.Add(msoControlButton, , , , True)
    With myBar
        .Caption = "Serena"
        .Style = msoButtonCaption
        .OnAction = "book2.xls!lina"
    End With

－－－－－－－－－－－－－－－－－－－－－－
以上是我编的这个按钮。想给这个按钮添加一个快捷键Ctrl+Q，但不会，还望前辈指点！！！
谢谢大伙了！！！