mymid1 = Mid(Text1.Text, i, 1)
where1 = InStr(Text1.Text, mymid1)
If where1 Then ' 如果找到，
formErr.Text1.SelStart = where1 - 1 ' 设置选定的起始位置并
formErr.Text1.SelLength = Len(where1) ' 设置选定的长度。
End If程序想实现两个文本框中的内容进行逐字比较，然后将不同的内容用SelLength选中，但这段代码能对汉字和数字、英文正常进行选中，但对空格却无能为力，请问空格应如何处理？并且只能对一个文本框操作，另一个文本框却无反应，如果两个文本框中不同的字符都想同时选中，应如何做？
where1 = InStr(Text1.Text, mymid1)
If where1 Then ' 如果找到，
formErr.Text1.SelStart = where1 - 1 ' 设置选定的起始位置并
formErr.Text1.SelLength = Len(where1) ' 设置选定的长度。
End If程序想实现两个文本框中的内容进行逐字比较，然后将不同的内容用SelLength选中，但这段代码能对汉字和数字、英文正常进行选中，但对空格却无能为力，请问空格应如何处理？并且只能对一个文本框操作，另一个文本框却无反应，如果两个文本框中不同的字符都想同时选中，应如何做？
rtb.sellength=yy
rtb.selcolor=zz着色