'Leo la Descripcion detallada renglon por renglon
Dim lineas() As String 'Inicializo un Array
lineas = Regex.Split(Chr(13),cDes) 'Separo cada linea x Chr(13) final
If lineas(0).ToLowerCase <> "Null".ToLowerCase Then 'Verifico si existe al menos un renglon con texto
For i=0 To lineas.Length -1 'Leo cada renglon seaprado del array
Dim cLin As String
cLin = lineas(i).Trim 'Quito espacios adelante/atras
If cLin.Length > 0 Then 'Si tiene por lo menos una letra, la muestro
aCampos2.Initialize
aCampos2.Add("")
aCampos2.Add("")
aCampos2.Add(cLin)
aCampos2.Add("")
aCampos2.Add("D")
aRegistros.Add(aCampos2)
End If
Next
End If
[/CÓDIGO]
[B]A million thanks![/B]