Generering af tekst fil i vb express

Dim StartTal, SlutTal, Filesys, Filetxt, i

StartTal = InputBox("Skriv starttal")
SlutTal = InputBox("Skriv sluttal")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set Filesys = CreateObject("Scripting.FileSystemObject")
Set Filetxt = Filesys.OpenTextFile("C:\SkrivEtTal.txt", ForWriting, True)
For i = StartTal To SlutTal
  Filetxt.WriteLine (i)
Next
Filetxt.Close