Vba Kod İle Txt Dosyası Oluşturmak nasıl olur

Dim fso as Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim oFile as Object

Set oFile = FSO.CreateTextFile(strPath)

oFile.WriteLine "test" 

oFile.Close

Set fso = Nothing

Set oFile = Nothing