Risolto, grazie a tutti.

For i = Text1 To Text2


Open "c:\test.txt" For Append As #1
Print #1, i
Close #1

Next i