Sub routine3()
Dim strname As String
Dim intx As Integer
Dim number As Integer
Open "c:\temp\ak4469\name.txt" For Output As #1
number = 0
For intx = 1 To 100
strname = "Jessica"
number = number + 1
Write #1, number, strname
Next intx
Close #1
End Sub