Option Explicit
Private WithEvents TBxI As MSForms.TextBox
Public Property Set TBx(ByVal TBx As MSForms.TextBox)
Set TBxI = TBx
End Property
Private Sub TBxi_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True: Effect = 1
End Sub
Private Sub TBxI_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True: Effect = 1
TBxI.Text = Data.GetText
End Sub