Creazione di un file di testo in VBA

Set fsObect = CreateObject("Scripting.FileSystemObject")
    Set File = fsObect.CreateTextFile("E:\testfile.txt", True)
    Dim conta As Integer
    For conta = 0 To 4
         File.WriteLine ("Riga: " & conta & " Colonna: " & "Valore")
    Next conta
  
    File.Close