Dim sLines() As String
Dim i As Integer
Dim nLineToDelete As Integer
 
sLines = Split(Text1.Text, vbCrLf)
 
' Bsp.: 10. Zeile löschen
nLineToDelete = 10
 
Text1.Text = ""
For i = 0 To UBound(sLines)
  If i + 1 <> nLineToDelete Then Text1.Text = Text1.Text & sLines(i) & vbCrLf
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de