1) Enterkey Behaviour=True means the Enter Key act like the Tab key. Try setting it to False. Ohterwise :
2)
CommandButon1_Click)
HasFocus = "CommandButton1"
ShowTextBox Me.CommandButton1
'More Code
End Sub
Sub ShowTextBox(Ctrl As MSForms.Control)
With Ctrl
ctrlTop = Ctrl.Top
ctrlLeft = Ctrl.Left
End With
With TextBox1
.Top = CtrlTop +- ???
.left = CtrlLeft +- ???
.Text = TBText(Ctrl)
.Visible = True
End With
End Sub
TextBox1_Click
Me.TextBox1.Visible = False
Me.Controls(HasFocus).SetFocus
HasFocus = ""
End Sub
That's the basics. I usually Use a Function to return any text needed
Function TBText(Ctrl As MSForms.Control) As String
Select Case Ctrl.Name
Case = "CommandButton1"
TBText = "This Is Sample Text to Show in TExtBox"
End Select
End function