Assuming you're setting FileName like:
FileName = "C:\MyFolder\Rea181_1.txt"
change it to
FileName = "C:\MyFolder\Read181" & Format(Date(), "ddmmyy") & "_1.txt"
In my opinion, though, you'd be better off using yyyymmdd so that the file
names will sort properly.