打字练习后，如果把曾经打错且当即用退格键删除的字收集起来（尽管当时已经重打改正），自己琢磨一下，为什么会打错？是记错了代码？还是手指不到位？还是什么其他原因？
这样对提高打字水平是很有帮助的。过程A是给普通文本框使用的，其中的变量a存放每次按退格键删除的一个字符，b存放累积的被删除的字符串。这个过程能达到要求。
而过程B是把普通文本框换成了“富文本框”。代码几乎与过程A一样。但是就是不能达到要求。不知要怎样来解决。

Option Explicit
Dim a$, b$
'===================过程A=======符合要求
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 And Text1.SelStart > 0 Then
a = Mid$(Text1.Text, Text1.SelStart, 1)
Label1.Caption = a
b = b & a
Label2.Caption = b
End If
End Sub

'===============过程B=========不符合要求
Private Sub RichTextBox2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 And RichTextBox2.SelStart > 0 Then
a = Mid$(RichTextBox2.Text, RichTextBox2.SelStart, 1)
Label1.Caption = a
b = b & a
Label2.Caption = b
End If
End Sub

十分感谢wufuzhang的帮助。试验成功了！