如果你是直接在text中输入，默认就是光标后面，如果通过其他控件添加，如下代码可以实现： Dim s As String s = Mid(Text1.Text, 1, Text1.SelStart) s = s & "字符" Text1.Text = s & Mid(Text1.Text, Text1.SelStart + 1, Len(Text1.Text)
