ok, lets do this:

Dim StrName as String
StrName = Str(Now())

now, having set this variable to the string of the current date, you can make it be the name of the filename you are assigning in the file something like
Open App.Path & "\" & StrName & ".txt" For Output As #1
Write #1, "I love Universal Thread"
Close #1

hope this can help u friend, my english is not that good but I am trying my best in here....