Visual Basic - Ayuda con Input y las Comas !

Hola como estan.
mi problema es el siguiente:
Tengo un archivo de texto el cual tengo que leer desde VB :
sArchivo = "c:\traslado.txt"
Open sArchivo For Input As #1
' Lee el archivo
Do While Not EOF(1)
Input #1, Linea
Linea = Trim(Linea)
.
.
.

y todo funciona bien hasta que en medio de la linea aparece una coma:
las lineas completas son:
AD0015~3~0~Producto AD0015, Corrida 9~0~NULO~NULO~9~NULO~
AD0015~4~0~Producto AD0015, Corrida 10~0~NULO~NULO~10~NULO~

pero solo me lee hasta donde esta la ",":
linea = "AD0015~4~0~Producto AD0015,"

y deberia quedar :
linea = "AD0015~3~0~Producto AD0015, Corrida 9~0~NULO~NULO~9~NULO~"

YA PROBE ENCERRANDOLOS ENTRE COMILLAS PERO NO FUNCIONA TAMPOCO

porque se corta en la coma y como poder evitar eso ?
De ante mano muchas gracias

Hola; tendria q haber puesto

Line Input #1, linea

================================
Open sArchivo For Input As #1
' Lee el archivo
Do While Not EOF(1)
Line Input #1, Linea
Linea = Trim(linea)