Private Sub RichTextBox1_Change()
On Error Resume Next
'we zullen het programma de tekst vanaf positie 160 laten onthouden
Dim bufferselstart 'om te onthouden waar de eerdere selectie begon
Dim buffersellength 'om te onthouden waar de eerdere selectie stopte
With RichTextBox1
bufferselstart = .SelStart
buffersellength = .SelLength
If Len(.Text) < 160 Then Exit Sub 'niets doen als er geen 160 tekens zijn
.SelStart = 0
.SelLength = 160 'de eerste 160 tekens zijn geselecteerd
.SelColor = RGB(0, 0, 0) 'zwart
.SelStart = 161
.SelLength = Len(.Text) - 161
.SelColor = RGB(255, 0, 0) 'rood
.SelStart = bufferselstart 'de oorspronkelijke selectie herstellen
.SelLength = buffersellength
End With
End Sub