I have a list of numbers from a file that looks like this:

"001","Potatoes, red",1.15
"007","Potatoes, Baking",.98
"010","Peppers, Red",1.1
"011","Peppers, Green",.75
"015","Peppers, Yellow",1.4
"050","Chicken Soup",.9
"055","Beef Soup",.98
"060","Rice, Converted",2.1
"061","Rice, Instant",1.5
"084","pretzels",2.14
"096","napkins",1.45
"100","Pencil, #2",.29
"101","Pen, Blue",.33
"102","Pen, Red",.33
"110","Clips, 110ct",.4
"120","Scotch Tape",.78
"130","Packing Tape",.49
"135","Masking Tape",.27
"200","T-Bone",3.78
"201","Ground Round",2.95
"210","Chicken Tenders",1.98
"340","Salmon",4.55
"409","Soap",1.47
"428","Cheddar Cheese",2.15
"466","Milk, 1 Gal",1.18
"467","Milk, 1 Pt",.87
"501","Yogurt, Raspberry",1.78
"502","Yougurt, Bluebarry",1.78
"503","Yogurt, Plain",1.28
"601","Cola, 2 ltr",1.29
"602","Cola, diet 2 ltr",1.29
"603","Cola, 6 pack",1.85
"701","Gum, Spearmint",.95
"711","Kisses",1.48
"712","Almond Kisses",2.15
"812","House, 2000 sq ft",150000
"904","Car, Sports",27500
"905","Car, Sedan",22897
"910","Bug",15679
"990","prod 990",9.9
"999","cumquats",100

I have inported them into an array I like this:
Code:
    ProdFileName = CDL1.FileName            '**  Remember product file name
    Open ProdFileName For Input As #6       '**  Open the product file
    I = 1                                   '**  Start with first product
    Do Until EOF(6)                         '**  Until the end of the file
        Input #6, UPC(I), ProdDesc(I), ProdPrice(I) '**  Read I-th product
        I = I + 1                           '**  Anticipate next product
    Loop
    
    NumProducts = I - 1                     '**  Remember number of products read
    Close #6
Now, if I call up a certain UPC line of code, say like this:

NewUPCTrans = UPC(I)

How can I append more information into the ProdFileName so that the file will look like this:

"001","Potatoes, red",1.15,2,1.3
"007","Potatoes, Baking",.98,7,6.5
"010","Peppers, Red",1.1
"011","Peppers, Green",.75
"015","Peppers, Yellow",1.4
"050","Chicken Soup",.9,3,2.7
"055","Beef Soup",.98
"060","Rice, Converted",2.1
and so on....

basically, I want to make the 2 new bits of information new veribles in the array that I can recall to.

Can someone tell me how to do this??

Thanks

Brian