Option Compare Database
Option Explicit

Public Sub CreateContextMenu()

Const strMenuName As String = "Form1_CommandBar"

Dim cbar As CommandBar
Dim bt As CommandBarButton

Application.CommandBars("Form1_CommandBar").Delete
    
    Set cbar = CommandBars.Add(strMenuName, msoBarPopup, , False)
    Set bt = cbar.Controls.Add
        bt.Caption = "Cut"
        bt.OnAction = "=fCut()"
        bt.FaceId = 21
    Set bt = cbar.Controls.Add
        bt.Caption = "Copy"
        bt.OnAction = "=fCopy()"
        bt.FaceId = 19
        
        
    Set bt = cbar.Controls.Add
        bt.Caption = "Test"
        bt.OnAction = "=bildir()"
        bt.FaceId = 42

End Sub

Function bildir()
    MsgBox "bildirdim"
End Function

Function fCut()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Cut")
End Function

Function fCopy()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Copy")
End Function

Function fPaste()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Paste")
End Function

CreateContextMenu