write 会自动加上引号，如果不想加上引号，可用print
Write #2, Replace(Text1.Text, chr(34),"")
text1=replace(Text1.Text,"""","")
Replace(Text1.Text, chr(34),"")
