Creating sequentially numbered documents with date

Hi

I found this bit of code on the link
http://word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm

how can i modify it to enter the date/time in to the settings.txt every time the word document is opened. With each date time entry inserted on new row

thanks for any help

Order = System.PrivateProfileString("C:\Settings.Txt", _
"MacroSettings", "Order")

If Order = "" Then
Order = 1
Else
Order = Order + 1
End If

System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#")