Private Function Text_mit_harten_Umbruch() As String
  Dim i As Long
  Dim sText As String
 
  With sevText1
    For i = 1 To .LineCount
      sText = sText & IIf(i > 1, vbCrLf, "") & .LineText(i)
    Next i
  End With
 
  Text_mit_harten_Umbruch = sText
End Function

Private Sub Command1_Click()
  Label1.Caption = Text_mit_harten_Umbruch
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de