Не вызываеться обработчик из OnAction для CommandBarButton

Добрый день.
Пишу макрос для Outlook.
Подскажите, почему у меня не вызывается процедура "ShowMessage" при нажатии на кнопку btnNewCustom. Вроде ж все правильно... Может есть еще где-то в Outlook еще какие-то настройки, которые запрещают вызов обработчика событий? Код приведен ниже. Буду очень благодарен.

Sub AddToolbar()
Dim tlbCustomBar As CommandBar
Dim btnNew As CommandBarButton
Dim btnNewCustom As CommandBarButton
Dim combo As CommandBarComboBox

Set tlbCustomBar = Application.ActiveExplorer _
.CommandBars _
.Add(name:="Custom Applications", _
Position:=msoBarTop, Temporary:=True)

tlbCustomBar.Visible = True


Set btnNewCustom = _
tlbCustomBar.Controls.Add(Type:=msoControlButton)


btnNewCustom.Style = msoButtonCaption
btnNewCustom.Caption = "ClickMe"
btnNewCustom.OnAction = "ShowMessage"

End Sub


Public Sub ShowMessage()
MsgBox ("HI")
End Sub