Hola!
Me parece que el problema lo tienes aqui:
Estas comparando 1 caracter (el del Mid) con 2 caracteres del Enter (0x0Dh + 0x0Ah)
Saludos!
Me parece que el problema lo tienes aqui:
Código (vb) [Seleccionar]
If Mid(cadena, i, 1) = vbCrLf Then
Estas comparando 1 caracter (el del Mid) con 2 caracteres del Enter (0x0Dh + 0x0Ah)
Saludos!