Flujo de lectura y escritura de archivos VB

Sub write1()
Dim Sql As String
Sql = "520 by lfq"
 Set FSO = CreateObject("Scripting.FileSystemObject")  --调用文件对象
Set SqlFileAll = FSO.createtextfile("d:\lfq.SQL", True)--生成文件地址
SqlFileAll.writeLine (Sql)--文件内容写入
MsgBox ("恭喜生成520的祝福语")--成功提示语

End Sub

Lo anterior es cómo escribir el archivo generado por vb.