Private Sub RTF2_Change()
   If RTF1.Text = "" Then Exit Sub
   If Len(RTF2.Text) >= Len(RTF1.Text) Then Exit Sub
   Label1.Caption = Mid(RTF1.Text, Len(RTF2.Text) + 1, 1)
End Sub
 
Private Sub RTF2_GotFocus()
   If RTF2.Text <> "" Then Exit Sub
   Label1.Caption = Left(RTF1.Text, 1)
End Sub