Private Sub Form_Load()

    Dim myBar As CommandBar
    Dim ctrl1 As CommandBarButton
    Dim ctrl2 As CommandBarButton
    
    Set myBar = CommandBars.Add(Name:= "Custom" , Position:=msoBarPopup, Temporary:=True)

    Set ctrl1 = myBar.Controls.Add(type:=msoControlButton, id:= 1 )
    With ctrl1
        .Caption =  "Оплатить" 
        .TooltipText =  "Оплатить" 
        .Style = msoButtonCaption
        .OnAction =  "= LoadForm("  "History PaymentsByReceiptSlr SubForm"  ")" 
    End With

    Set ctrl2 = myBar.Controls.Add(type:=msoControlButton, id:= 1 )
    With ctrl2
        .Caption =  "Вернуть" 
        .TooltipText =  "Вернуть" 
        .Style = msoButtonCaption
        .OnAction =  "= LoadForm("  "History RestitutionByReceiptSlr SubForm"  ")" 
    End With

End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    Dim myBar As CommandBar
    
    Set myBar = CommandBars( "Custom" )
    
    myBar.Delete
End Sub