not sure whether this could help or not. But it works for me.Good Luck:D

Public Sub Main()

Dim strFileName, strFilePath, strDateTime, strArchivePath As String

...