Problema al guardar datos del listbox a fichero de texto

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