Una forma mucho más fácil de manejar los valores de cada línea sería:
Código:
strLinea = "|Juan | Sal | 10 | 5 |"
strNombre = strLinea.split("|"c).GetValue(0) '-> Esto de devolverá Juan
strProducto = strLinea.split("|"c).GetValue(1) '-> Esto de devolverá Sal
dblCant = strLinea.split("|"c).GetValue(2) '-> Esto de devolverá 10
dblPrecio = strLinea.split("|"c).GetValue(3) '-> Esto de devolverá 5
dblTotal = dblCant * dblPrecio
