在VB中如果双引号里含有双引号怎么整

Open"D:滴滴滴滴滴.dat"ForAppendAs#1Print#1,"findd:*"Chr(34)";a;"Chr(34)Print#1,"finde:*"Chr(34)";a;"Chr(34)Close#1x=Shell("d:滴滴滴滴滴.bat",vbHide)