Visual Basic - delimitador

hola a todos ojala me puedan ayudar ya que es un pequeño detalle pero no se como resolverlo

miren tengo un programita que corta un txt delimitado por _ giones bajos hasta ahi super bien el problema es que cuando corta el testo no respeta lineas y junta la primera linea con la segunda yo necesito la informacion que esta al principio de la linea y algo que esta entremedio ntonces no puedo extraer lo que esta al principio de la linea ya que me la junta con la linea anterior y entre una y otra lineas no hay delimitador .

ejemplo texto sin cortar

12_21351_132111511
35_21515_21515151

deberia quedar asi
12
21351
132111511

35
21515
21515151

pero queda asi

12
21351
132111511||35
21515
21515151

oyala me puedan ayudar de ante mano muchas gracias.

y cual es el codigo que pones?

y estas segura que hay un salto de linea en el txt entre
12_21351_132111511
y
35_21515_21515151

???

oyala te pueda ayudar y de ante mano de nada!!!

Private Sub Command1_Click()
Dim inf As String ' a inf se le pasan todos los datos del textbox1
Dim strArray() As String 'es el arreglo que se le pasa el archivo txt
Dim intCount As Integer

'Dim delimitador As String
Delimitador = Text2 '
inf = Text1 ' aqui se le pasan todos los datos de text1 a inf

strArray = Split(inf, Delimitador) ' aqui se toma el arreglo completo y se aplica 'strArray = Split(inf, delimitador2)
' strArray = Split(strArray(-1), " ")
List1.Clear
For intCount = LBound(strArray) To UBound(strArray)

List1.AddItem strArray(intCount) ' a list1 se le asign el arreglo para mostrar los subindices disponibles
Next

Que tal Alejandra, te armé una función, espero que te sirva, según mis pruebas, los resultados son los que vos necesitás.

'---------------------------------------------------------------
Function Formatear(Texto As String) As String
Dim Lineas As Variant, Items As Variant
Dim i As Integer, j As Integer, Ret As String

Ret = ""
Lineas = Split(Texto, vbNewLine)

For i = LBound(Lineas) To UBound(Lineas)
If (Lineas(i) <> "") Then
Items = Split(Lineas(i), "_")

For j = LBound(Items) To UBound(Items)
Ret = Ret & Items(j) & vbNewLine
Next j
Ret = Ret & vbNewLine
End If
Next i

Lineas = ""
Items = ""
Formatear = Ret
End Function
'---------------------------------------------------------------

Suerte!
Paul.