1.建立窗体,如UserForm1
2.在窗体上构建两个控件,一个是TextBox1(文本框控件),第二个是CommandButton1(按钮控件)
3.加入下面给你写的代码
Private Sub CommandButton1_Click()
Dim Str As String '创建变量作为文本框的字串
Str = "123456"
Me.TextBox1.Text = Str '设置文本框的文本
Me.TextBox1.SetFocus '不知道你知道这些不,只管解释了一下,这里是设置焦点
Me.TextBox1.SelStart = Len(Me.TextBox1.Text) - 3'计算文本长度并设置光标位置
End Sub