teşekkürler sn. @berduş bende 

Set Satir = fso.CreateTextFile("C:\test\test.vcf", True)

kodu hata vermişti dosya bulunamadı diye acaba farklı bir yerde mi hata yaptım