ilk önce örnek için sonra da cevabınız için teşekkür ederim
sizin kadar kodlardan anlamadığım elbette doğru ama 
dediğiniz iki butondan birisinde

FileKonum = CurrentProject.path & "\" & VcardAdi & ".vcf"

If MsgBox(VcardAdi & " isimli vcard oluşturulduğunda outlook'a eklensin mi?", vbInformation + vbYesNo) = vbYes Then

        ActiveControl.Hyperlink.CreateNewDocument FileKonum, True, True

Else

        ActiveControl.Hyperlink.CreateNewDocument FileKonum, False, True

End If

diğerinde ise

VcardAdi = Format(Date, "ddmmyyyy") & "TumKayitlar.vcf"

ActiveControl.Hyperlink.CreateNewDocument CurrentProject.path & "\" & VcardAdi, False, True

 kodları mevcut yaniher ikisindede 

ActiveControl.Hyperlink.CreateNewDocument

kullanılıyor. ben bunu kullanmadan nasıl olabilir diyorum. çünkü bu kod zannedersem fazladan referans isteyen outlook kullanımı gerektiren bir kod
herhangi bir txt dosyası create etmek için illa "ActiveControl.Hyperlink.CreateNewDocument" gerekmez diye düşünüyorum
vcf dosyasıda txt nin uzantısı değişmiş hali. yani onun içinde illa 

ActiveControl.Hyperlink.CreateNewDocument

bu kod gerekmez diye düşünüyorum