txtsrc.text=left(txtsrc.text,txtsrc.selstart)&mid(txtsrc.tex

'Left(txtsrc.Text, txtsrc.SelStart)表示从文本框的左边开始取字符,一直取到光标前面那个字符
'txtsrc.SelStart表示在文本框中国光标的起始位置,如文本框的内容是"abc",我把光标放在a后面,那么txtsrc.SelStart=1,所以Left(txtsrc.Text, txtsrc.SelStart)="a"
'首先附上Mid函数的用法（别嫌长,基本函数一定要好好学...)
Mid(string, start, length)
参数
string 字符串表达式,从中返回字符.如果 string 包含 Null,则返回 Null.
Start string 中被提取的字符部分的开始位置.如果 start 超过了 string 中字符的数目,Mid 将返回零长度字符串 ("").
Length 要返回的字符数.如果省略或 length 超过文本的字符数（包括 start 处的字符）,将返回字符串中从 start 到字符串结束的所有字符.
'txtsrc.SelLength表示文本框选中文字的长度,如文本框的内容是"123",我选中"23",那么txtsrc.SelLength=2
' txtsrc.SelStart + txtsrc.SelLength + 1 表示选中文字后面的下一个字符的位置,如文本框的内容是"1234",我选中"23",那么txtsrc.SelStart + txtsrc.SelLength + 1=1+2+1=4,也就是说接下来的Mid函数从第四个字符开始取
'所以'Mid(txtsrc.Text, txtsrc.SelStart + txtsrc.SelLength + 1)表示从文本框选中字符后的第一个字符开始取,一直取到最后一个
最简单的方法就是放到VB中实际操作下,如文本框中的内容是"Text1",我选中e,那么最后文本框的内容是"Txt1"