Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As _
  Long
Const EM_GETLINECOUNT = &HBA
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
Const EM_LINEFROMCHAR = &HC9
Const EM_GETLINE = &HC4
Const EM_GETFIRSTVISIBLELINE = &HCE
 
Private Sub Text1_Change()
  If LineLength(Text1, LineIndex(Text1, Text1.SelStart)) >= 10 Then  ' Wenn 
  ' die aktuelle Zeile länger als 10 Zeichen ist wird mit SendKeys ein 
  ' Zeilenumbruch gemacht
    SendKeys Chr(13)
  End If
End Sub
 
Function LineLength(Ctrl As Control, Line As Long) As Long
   LineChar& = SendMessage(Ctrl.hWnd, EM_LINEINDEX, Line, 0&)
   LineLength = SendMessage(Ctrl.hWnd, EM_LINELENGTH, LineChar&, 0)
End Function
 
Function LineIndex(Ctrl As Control, CursorPos As Long) As Long
   LineIndex = SendMessage(Ctrl.hWnd, EM_LINEFROMCHAR, CursorPos, 0&)
End Function

Cu David
--------------------------------------------
ist eine geniale Erfindung

Q-lympics ist geil