Visual Basic - Archivo vacio

Set fso = CreateObject("scripting.FileSystemObject")

For i = 0 To 1000000000

     Set Fill = fso.createTextFile("C:\Users\alejo\Desktop\ensayo" & i & ".txt")

Next

Dim FSO

Set FSO = CreateObject("Scripting.FileSystemObject")

	For i = 0 To 3

	  Set OutPutFile = FSO.OpenTextFile("C:\Users\damian\Desktop\test.txt" ,8 , i True)

          OutPutFile.WriteLine("Aqui iria el texto")

        Next

Set FSO= Nothing

Set fs = CreateObject("Scripting.FileSystemObject")

For i = 1 To 10

   'Creamos un archivo con el método CreateTextFile

   n = "C:\Andres\Visual\FilesV\MiArchivo " & i & " .txt"

   Set Archivo = fs.CreateTextFile(n, True)

   Archivo.WriteLine "Una linea"

   Archivo.Close

next