VBA用户定义的上下文菜单粘贴不会粘贴到文本框中

我正在尝试将粘贴到用户表单中的文本框中。我创建了一个上下文菜单，但它总是粘贴在excel电子表格中光标所在的位置，而不是我右键单击的位置。我需要它粘贴到我右键单击的文本框中。这是我的密码：

此代码导致右键单击文本框时出现弹出窗口：

Private Sub QuesTextBox_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Module1.MakePopUp
If Button = 2 Then
Application.CommandBars("MyPopUp").ShowPopup
End If
End Sub

此代码定义了允许粘贴的弹出式上下文菜单

Sub MakePopUp()
On Error Resume Next
CommandBars("MyPopUp").Delete
On Error GoTo 0

With CommandBars.Add(Name:="MyPopUp", Position:=msoBarPopup)
.Controls.Add Type:=msoControlButton, ID:=19
.Controls.Add Type:=msoControlButton, ID:=22
End With
End Sub