The popup is a problem
You need to disable the control at a point when the control would display the popup, you then renable the control.
Something like
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Text1.Enabled = False
' code
End If
Text1.Enabled = True
End Sub