CSV文件格式有关问题 期待用VBA解决

CSV文件格式问题 期待用VBA解决
CSV文件用记事本打开 可以看到很多带双引号的数据.但用excel打开后 然后重新保存。再用记事本打开，这些双引号都没的了。想加入一些VBA脚本 实现在保存的时候把双引号保留下来，怎样实现？ 


保存前用记事本打开: 
"DO_Date","M_Serial_No","S_Serial_No","MAC_Address","Model" 
"20091028","ONT0095261","2102316708108A000085","56-70-B3-53-6C-98","T060G" 
"20091028","ONT0095211","2102316708108A000054","56-70-B3-53-6C-99","T060G" 
"20091028","ONT0095262","2102316708108A000079","56-70-B3-53-6C-10","T060G" 
保存后.用记事本打开:(双引号不见了) 
DO_Date,M_Serial_No,S_Serial_No,MAC_Address,Model 
20091028,ONT0095261,2102316708108A000085,56-70-B3-53-6C-98,T060G 
20091028,ONT0095211,2102316708108A000054,56-70-B3-53-6C-99,T060G 
20091028,ONT0095262,2102316708108A000079,56-70-B3-53-6C-10,T060G

------解决方案--------------------
更正上帖

VB code

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.csv", True) 
for r=1 to 65536
    for c=1 to 256
        v=sheet1.cells(r,c)
        if isempty(v) then
            exit for
        else
            if c=1 then
                a.Write("""" & v & """")
            else
                a.Write(",""" & v & """")
            endif
        end if
    next c
    a.WriteLine("")
    if c=1 then exit for
next r
a.Close
Set a=Nothing
Set fs=Nothing