Копирование содержимого EditBox в буфер по правой кнопке мыши (Excel)

Option Explicit
Const PopUpCommandBarName As String = 'TemporaryPopupMenu'
Sub DeletePopUp()
    On Error Resume Next
    CommandBars(PopUpCommandBarName).Delete
    On Error GoTo 0
End Sub
Sub CreatePopUp()
Dim cb As CommandBar
DeletePopUp
Set cb = CommandBars.Add(PopUpCommandBarName, msoBarPopup, False, True)
With cb
With .Controls.Add(Type:=msoControlButton)
.OnAction = 'MyMacroCut'
.FaceId = 21
.Caption = 'Вырезать'
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = 'MyMacroCopy'
.FaceId = 19
.Caption = 'Копировать'
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = 'MyMacroPaste'
.FaceId = 22
.Caption = 'Вставить'
End With
End With
Set cb = Nothing
End Sub
Sub DisplayCustomPopUp()
Application.CommandBars(PopUpCommandBarName).ShowPopup
End Sub
Sub MyMacroCopy()
On Error Resume Next
UserForm5.ActiveControl.Copy
On Error GoTo 0
End Sub
Sub MyMacroPaste()
On Error Resume Next
UserForm5.ActiveControl.Paste
On Error GoTo 0
End Sub
Sub MyMacroCut()
On Error Resume Next
UserForm5.ActiveControl.Cut
On Error GoTo 0
End Sub

Option Explicit
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
DisplayCustomPopUp
End If
End Sub
 
Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
DisplayCustomPopUp
End If
End Sub
 
Private Sub UserForm_Deactivate()
DeletePopUp
End Sub
 
Private Sub UserForm_Initialize()
CreatePopUp
End Sub

Sub MyMacroCopy()
On Error Resume Next
If InStr(UserForm5.ActiveControl.Name, 'MultiPage') > 0 Then
ControlName = UserForm5.ActiveControl.Name
  If InStr(UserForm5.Controls(ControlName).SelectedItem.ActiveControl.Name, 'Frame') > 0 Then
    FrameName = UserForm5.Controls(ControlName).SelectedItem.ActiveControl.Name
    UserForm5.Controls(ControlName).SelectedItem.Controls(FrameName).ActiveControl.Copy
  Else
    UserForm5.Controls(ControlName).SelectedItem.ActiveControl.Copy
  End If
Else
UserForm5.ActiveControl.Copy
End If
On Error GoTo 0
End Sub