如题，还有在文本框里选中文字算不算是change事件
'楼上的是只保留第一个文本框中选中的字符，第二个文本框中显示剩余字符
'这个是删除第一个文本框中选中的字符，并在第二个文本框中显示剩余字符数
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength), "")
Text2.Text = Len(Text1.Text)
End Sub
'这个是第一个文本框中内容不变，第二个文本框中显示删掉选中字符后的剩余字符串
Private Sub Command1_Click()
Text2.Text = Left(Text1.Text, Text1.SelStart) & Right(Text1.Text, Len(Text1.Text) - Text1.SelStart - Text1.SelLength)
End Sub
'不知道你是要的哪一种追问
'这个是删除第一个文本框中选中的字符，并在第二个文本框中显示剩余字符数
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength), "")
Text2.Text = Len(Text1.Text)
End Sub
'这个是第一个文本框中内容不变，第二个文本框中显示删掉选中字符后的剩余字符串
Private Sub Command1_Click()
Text2.Text = Left(Text1.Text, Text1.SelStart) & Right(Text1.Text, Len(Text1.Text) - Text1.SelStart - Text1.SelLength)
End Sub
'不知道你是要的哪一种追问
没有要删除，就是选中第一个文本框里的字符然后立刻在第二个文本框里显示出选中的字符
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-09-01
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text2 = Text1.SelText
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2 = Text1.SelText
End Sub
Text2 = Text1.SelText
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2 = Text1.SelText
End Sub
起作用的就是 ：Text2 = Text1.SelText
关键要看在什么时候执行，文本框本身没有提供选中部分变化的事件，所以利用鼠标选中或键盘选中时的抬起事件时处理，如果还不满意，可以加一个Timer，不停地执行。
本回答被提问者和网友采纳