Private Sub txt_KeyDown( _
    rTxtBox As TextBox, _
    KeyCode As Integer, _
    Shift As Integer _
  )
 
  On Error Resume Next
 
  Select Case KeyCode
    Case vbKeyA To vbKeyZ, _
         vbKey0 To vbKey9, _
         vbKeyNumpad0 To vbKeyNumpad9, _
         vbKeyMultiply, vbKeyAdd, _
         vbKeyDivide, vbKeySubtract, _
         219                           '<ß>
 
      If Len(rTxtBox.Text) > 0 Then
        rTxtBox.Text = rTxtBox.Text & vbNewLine
        rTxtBox.SelStart = Len(rTxtBox.Text)
      End If
 
    Case Else
      'nothing
  End Select
 
  Debug.Assert Err = 0
  Err.Clear
 
End Sub
 
Private Sub txtTest_KeyDown( _
    Index As Integer, _
    KeyCode As Integer, _
    Shift As Integer _
  )
 
  txt_KeyDown txtTest(Index), KeyCode, Shift
 
End Sub

Gruß
Dirk

--
?Get it right the first time