' zunächst die benötigten API-Deklarationen
Private Declare Function SendMessage Lib "user32" _ 
  Alias "SendMessageA" (ByVal hwnd As Long, _ 
  ByVal wMsg As Long, ByVal wParam As Long, _ 
  ByVal lParam As Any) As Long 
 
Private Const EM_GETLINE = &HC4 
Private Const EM_GETLINECOUNT = &HBA
 
' Weiche Umbrüche in harte Zeilenumbrüche umwandeln
Public Function DoTextCrLf(TextBox As TextBox) _
  As String 
 
  Dim I As Long 
  Dim lngLineCount As Long 
  Dim lngLineLength As Long 
  Dim strLine As String 
 
  ' zunächst die Anzahl der Zeilen ermitteln
  lngLineCount = SendMessage(TextBox.hwnd, _ 
    EM_GETLINECOUNT, 0, 0&) 
 
  ' jetzt die einzelnen Zeilen ermitteln
  For I = 0 To lngLineCount - 1 
    strLine = Space$(1024) 
 
    lngLineLength = SendMessage(TextBox.hwnd, _ 
      EM_GETLINE, I, strLine) 
 
    DoTextCrLf = DoTextCrLf + _ 
      Left$(strLine, lngLineLength) + _ 
      IIf(I < lngLineCount - 1, vbCrLf, "") 
  Next I 
End Function