Excel VBA Write text file

Sub a()
   
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim oFile As Object
    Set oFile = fso.CreateTextFile("d:\a.txt")
    oFile.WriteLine "test"
    oFile.Close
    Set fso = Nothing
    Set oFile = Nothing

End Sub