VBA code for pulling a sequential number from a text file dependent on a form entry.

Sub Macro_1()
Dim fs, fil, num
Set fs = CreateObject("Scripting.filesystemobject")
Set fil = fs.opentextfile("E:\test3.txt", 1)
num = fil.readline
Set fil = fs.opentextfile("E:\test3.txt", 2)
fil.writeline num + 1
End Sub

?