Attribute VB_Name = "Module2"
Sub SetMenu()
    Dim myBar As CommandBar
    Dim myButton As CommandBarButton
    
    ZapMenu
    Set myBar = CommandBars.Add(Name:="EIS", _
        Position:=msoBarBottom, _
        MenuBar:=True)
        
    Set myButton = myBar.Controls.Add(msoControlButton)
    myButton.Style = msoButtonCaption
    myButton.Caption = "E&xit"
    myButton.OnAction = "ExitEIS"
    
    Set myButton = myBar.Controls.Add(msoControlButton)
    myButton.Style = msoButtonCaption
    myButton.Caption = "&Return to Main"
    myButton.OnAction = "ReturnToMain"
    myButton.Visible = False
    
    myBar.Protection = msoBarNoMove + msoBarNoCustomize
    myBar.Visible = True
End Sub