Welcome to the forum
Take a minute to read the FAQs in my signature
Try this
Option Explicit
Dim oTextbox As MSForms.TextBox
Private Sub CommandButton1_Click()
Dim doClip As DataObject
Dim bulletStr As String
Set doClip = New DataObject
bulletStr = "? "
doClip.SetText bulletStr
doClip.PutInClipboard
' With Me.TextBox1 ' <<<<<<<<<<<<<<<<<<<<<< what did you expect
With oTextbox
.Paste
.SetFocus
End With
End Sub
Private Sub TextBox1_Enter()
Set oTextbox = TextBox1
End Sub
Private Sub TextBox2_Enter()
Set oTextbox = TextBox2
End Sub
Private Sub TextBox3_Enter()
Set oTextbox = TextBox3
End Sub
Private Sub TextBox4_Enter()
Set oTextbox = TextBox4
End Sub
Private Sub TextBox5_Enter()
Set oTextbox = TextBox5
End Sub
Private Sub TextBox6_Enter()
Set oTextbox = TextBox6
End Sub