Ghi file text trong VBA Excel

Bên dưới là đoạn code vba ghi nội dung file xuống file txt
         Dim doituong_file As New FileSystemObject
         Set doituong_file = CreateObject("Scripting.FileSystemObject")
         Set FileToWrite = doituong_file.CreateTextFile("D:\user_macdinh.txt", True)
         db_us="admin"
         FileToWrite.WriteLine db_us