Warum funktioniert dies nicht

Private Sub A_Druckersymbole_Raus()
procControlEnableDisable 2521, False
procControlEnableDisable 4, False
procControlEnableDisable 109, False
''Application.OnKey "^p", ""
Application.OnKey "^p", "Strg_P_deaktivieren"
End Sub

Private Sub A_Druckersymbole_REIN()
procControlEnableDisable 2521, True
procControlEnableDisable 4, True
procControlEnableDisable 109, True
''Application.OnKey "^p"
Application.OnKey "^p"
End Sub

Private Function procControlEnableDisable(intId As Integer, bolStatus As Boolean)
'Idea by Nepumuk
Dim myCommandBar As CommandBar, myCommandBarControl As CommandBarControl
For Each myCommandBar In Application.CommandBars
Set myCommandBarControl = myCommandBar.FindControl(ID:=intId, Recursive:=True)
If Not myCommandBarControl Is Nothing Then myCommandBarControl.Enabled = bolStatus
Next
End Function

mfg Walter mb