VBA'da bir dosya oluşturmak için aşağıdaki kod kullanılabilir..

Sub Dosya_Olustur()
  DosyaYolu = "C:\deneme.txt"
  Set dosya = Fso.CreateTextFile(DosyaYolu, True)
  dosya.WriteLine ("Merhaba Dünya!")
  dosya.Close
End Sub

Bu kod, bir FSO (File System Object) nesnesi oluşturur ve onu kullanarak bir dosya oluşturur. Dosya yolu "C:\deneme.txt" olarak belirlenir ve "Merhaba Dünya!" satırını içerecek şekilde yazılır. Sonra dosya kapatılır.