Private Sub RichTextBox1_KeyDown(KeyCode As Integer, _
  Shift As Integer)
 
  <font color=green>' Entfernen und Backspace deaktivieren</font>
  If KeyCode = vbKeyDelete Or KeyCode = vbKeyBack Then
    KeyCode = 0
  End If
End Sub