Private Sub Form_Load()
  Timer1.Enabled = False
  Timer1.Interval = 200
End Sub
 
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
  Static nTime As Single
 
  If KeyAscii = 13 Or Timer1.Enabled = True Then
    KeyAscii = 0
 
    ' Abfragen, ob ENTER 2x schnell hintereinander gedrückt wurde
    If nTime > 0 And Timer - nTime < 0.2 Then
      ' Enter wurde innerhalb 0.2 Sekunden zweimal gedrückt
      KeyAscii = 0
      MsgBox "Doppelt-Enter"
      Timer1.Enabled = False
      Exit Sub
    End If
 
    nTime = Timer
    Timer1.Enabled = True
  End If
End Sub
 
Private Sub Timer1_Timer()
  RichTextBox1.SelText = vbCrLf
  Timer1.Enabled = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de