hola soy jilo

tengo un problema sobre listbox

estoy haciendo un programa que con un boton command1 me va adicionando los datos en el list1 que hago lo siguiente:
list1.additem cantidad & producto & precio & subtotalp
me adiciona correctamente los datos en el listbox
el problema es cuando quiero guardar los datos en el fichero de texto en otro command2 que hago lo siguiente:
dim i as integer
open app.path & "\productos.txt" for output
for i=1 to list1.listcount -1
write #1,list1.list(i)
next i
close #1

me guarda los datos de la siguiente manera:

"12 arroz 1 12"
"23 aceite 0.5 34,5"
"11 cervezas 1 11"

yo lo que quiero es que guarde los datos de la siguiente manera:
"12","arroz","1","12"
"23","aceite","0.5","34.5"
"11","cervezas","1","11"

si alguien me puede ayudar
muchas gracias