Hola.
Lo que radical pretende hacer puede ser muy sencillo o complicarse dependiendo de lo siguiente:
Si cada línea de texto en el textbox acaba en dos carácteres Cr y Lf (vbCrLf) y eso es lo que hace que se produzca un salto de línea, la cosa sería fácil, pero si el número de líneas viene dado por un ancho de texto mayor que el ancho del TextBox la cosa se lia un poco más. Y ya si se dan las dos situaciones juntas, puedes volverte loco y te compensará más usar otro control o repasar la lógica de lo que quieres hacer.
Para el primer caso bastaría con algo de este estilo:
'Eliminar la línea 5, por ejemplo
Const ELIMINAR_LINEA_N = 5#
Dim var1 As Variant
var1 = Split(Text1.Text, vbCrLf)
Dim i1 As Integer, s1 As String
For i1 = 0 To UBound(var1) - 1
If ELIMINAR_LINEA_N <> i1 + 1 Then _
s1 = s1 & var1(i1) & vbCrLf
Next i1
Text1.Text = s1
Si se da otra situación, tendrías que usar la función TextWidth del TextBox para ir calculando según el texto y su ancho en el control la división por líneas que quedaría (no sé si esto se entiende...). El tema se complica un poco más, y la verdad que estoy a punto de marchar a casa y no tengo tiempo ni ganas de ponerme...
Espero que esto te sirva. Suerte.
Abur.
