Adding a button to Outlook Addon

Private Sub AddToolbar()

    Try
        Dim objBar As Office.CommandBar
        OL = Me.Application
        objBar = OL.ActiveExplorer.CommandBars.Item("Standard")
        objButton = objBar.Controls.Add(, , , 1, True)
        With objButton
            .Picture = getImage()
            .Mask = getImage()
            .TooltipText = "eConfirm"
            .Caption = "eConfirm"
            .Style = msoButtonIconAndCaption ' msoButtonIcon
        End With
    Catch ex As System.Exception
        MsgBox("Failed to add button" & ex.ToString())
    End Try

End Sub

Private Sub objButton_Click(ByVal Ctrl As Office.CommandBarButton, _
    ByRef CancelDefault As Boolean) Handles objButton.Click

    MsgBox("Hello World")

End Sub