Quotes in CSV File

HI ALL

Could one of you solve this problem for me please I am trying to save as CSV file with quotes I.E "001" trying using chR(34) this does work when reading the CSV file in notepad but when reading in excel the cell just has a 1 init.
when in excel I can manual put in "001" and all is fine but not when vb6 creates the csv file.



Open "f:\JN" & Text1 & ".csv" For Append As #1
Print #1, "Drawing Type=XA8" & "," & "Creator=APTL"
Print #1, "Item Number" & "," & "Filename" & "," & "Drawing Number" & "," & "Sheet Number" & "," & "Frame" & "," & "Sheet Size" & "," & "Print Date" & "," & "Drawing Title" & "," & "Sheet Title"
Print #1, "1" & "," & "\070ZE\00LD\" & Text3 & "\001.dwg" & "," & "070ZE00LD" & Text3 & "," & Chr(34) & "001" & Chr(34) & "," & "1" & "," & "A2" & "," & Label16 & "," & "ELECTRICAL VISION System" & "," & "COVER SHEET"
Close #1

Kind Regards

Steve