<code>
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
 
Public Function DoTextCrLf(TextBox As TextBox) As String
  Dim I As Long
  Dim lngLineCount As Long
  Dim lngLineLength As Long
  Dim strLine As String
 
  <font color=green>' zunächst die Anzahl der Zeilen ermitteln</font>
  lngLineCount = SendMessage(TextBox.hwnd, _
    EM_GETLINECOUNT, 0, 0&)
 
  <font color=green>' jetzt die einzelnen Zeilen ermitteln</font>
  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</code>

Aufruf:

<code>Dim strTextNeu As String
strTextNeu = DoTextCrLf(Text)</code>