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 As Long = &HC4&
Private Const EM_GETLINECOUNT As Long = &HBA&
Private Const MAX_CHAR_PER_LINE As Long = &H100&
Private NeuerTextX As String
 
 
Private Sub Text_mit_harten_Umbruch()
    Dim Max As Long, X As Long
 
    Max = SendMessage(sevText1.hwnd, EM_GETLINECOUNT, 0, 0&) - 1
 
    For X = 0 To Max
        If X = 0 Then
        NeuerTextX = GetLine(sevText1, X)
        Else
        NeuerTextX = NeuerTextX & vbCrLf & GetLine(sevText1, X)
        End If
    Next X
End Sub
 
 
Function GetLine(Text As TextBox, ByVal Line&) As String
    Dim Lo As Long, Hi As Long
    Dim Result As Long
    Dim Buff As String
 
    Lo = MAX_CHAR_PER_LINE And &HFF
    Hi = Int(MAX_CHAR_PER_LINE / &H100)
    Buff = Chr$(Lo) & Chr$(Hi) & Space$(MAX_CHAR_PER_LINE - 2)
 
    Result = SendMessage(Text.hwnd, EM_GETLINE, Line, Buff)
    GetLine = Left$(Buff, Result)
End Function
 
 
Private Sub Command1_Click()
     Text_mit_harten_Umbruch
    Label1.Caption = NeuerTextX
End Sub