Public Function GetLineFromTB(TextBox As TextBox, lLine As Long) As String
  Dim lLineCount        As Long
  Dim lLineEnd          As Long
  Dim lLineStart        As Long
 
  If TextBox.MultiLine Then
    ' ist das überhaut eine Multiline Textbox ?
    lLineCount = 1      ' Zähler für dei Zeilen
    lLineEnd = 1        ' letztes Zeilenende
    Do
      ' Schleife
      lLineStart = lLineEnd + 1
      lLineEnd = InStr(lLineStart, txtSource.Text, vbCrLf, vbTextCompare) + 1
      If lLineEnd > 0 Then
        ' dann ist hier eine neue Zeile
        If lLineCount = lLine Then
          ' das ist die Zeile die wir suchen, also ausschneiden und zurückgeben
          GetLineFromTB = Mid(txtSource.Text, lLineStart, lLineEnd - lLineStart _
            - 1)
          Exit Do           ' Schleife verlassen
        End If
        lLineCount = lLineCount + 1
      Else
        ' Kein Zeilenende mehr da, dann gibt es die gewünschte zeile auch nicht
        GetLineFromTB = False
        Exit Do             ' Schleife verlassen
      End If
    Loop
  Else
    GetLineFromTB = False
  End If
End Function