Build Multiple Drop-down Menus

I've tried to build a second Drop menu, copying the code from the first. When i run it im getting an error 91 (i didnt understand much of what google said on it) the code is as follows:

I tried changing it to btnInput1, but that hasnt helped :( the menu gets built, but the button does not.

Sub BuildAdminMenu()
Dim mnuInput As CommandBarPopup
Dim btnInput As CommandBarButton
Dim btnInput1 As CommandBarButton

Set mnuInput = Application.CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup, Temporary:=True)
mnuInput.Caption = "&Options (beta)"
mnuInput.BeginGroup = True
mnuInput.Visible = True
mnuInput.Tag = "Build XML Files Menu"

Set btnInput = mnuInput.Controls.Add(Type:=msoControlButton, Before:=1)
btnInput.FaceId = 2761
btnInput.OnAction = "openForm"
btnInput.Caption = "New PR/IEWO"
btnInput.Style = msoButtonIconAndCaption

Set btnInput = mnuInput.Controls.Add(Type:=msoControlButton, Before:=1)
btnInput.FaceId = 2761
btnInput.OnAction = "openSearch"
btnInput.Caption = "Search Entries"
btnInput.Style = msoButtonIconAndCaption

Set mnuInput = Application.CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup, Temporary:=True)
mnuInput.Caption = "&AdminOptions (beta)"
mnuInput.BeginGroup = True
mnuInput.Visible = True
mnuInput.Tag = "Build XML Files Menu"
Set mnuInput = Nothing

Set btnInput1 = mnuInput.Controls.Add(Type:=msoControlButton, Before:=1)
btnInput1.FaceId = 2761
btnInput1.OnAction = "openAddUser"
btnInput1.Caption = "Add User"
btnInput1.Style = msoButtonIconAndCaption