vb6 文本框的内容自动保存成文本，文本的文件名怎么设置成变量。
当文本框输入的内容大于4个字符后，自动保存到硬盘中，格式是txt，每次输入文本框的内容大于4个字符就保存1次，文件名每次都不能一样。比喻，第1次保存成1.txt，第二次保存成2.txt。跪求赐教
我现在只能做到保存成1个文件，不懂怎么将文件名做成变量
Private Sub Text1_Change()
If Len(Text1) > 4 Then
Timer1.Enabled = True
Timer1.Interval = 100
Change = 1
End If
End Sub
Private Sub Timer1_Timer()
Dim FF As Long
FF = FreeFile
Open "D:\1.txt" For Output As #FF '
Print #FF, Text1
Close #FF
Text1 = ""
Timer1.Enabled = False
End Sub
