在文本框Leave事件写入代码 vars("sstart") = e.Form.Controls("TextBox1").SelectionStart
在按钮写入代码 msgbox(vars("sstart"))
从得到的位置，通过substring截取对应的字符串，然后拼凑成你要的
加好友 
发短信
Post By：2014/10/5 10:05:00 [显示全部帖子]
