[SendMessage]

Можно и с текстовичком.
Концепция такая - в том месте, где при создании архива должен выставляться его порядковый номер, вписать предлагаемую функцию.

Код:

CheckFile = "z:\check.txt"

'пример
archfile = "qwerty_" & SetNumberArchive(CheckFile) & ".arj"

Function SetNumberArchive(f)
  Dim arrCheck
  Dim CountArch
  Dim DateCheck
  Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(f) Then
      arrCheck = Split(objFSO.OpenTextFile(f).ReadLine, "#", 2)
      DateCheck = arrCheck(0)
      CountArch = arrCheck(1) + 1
    End If
    If Not CDate(DateCheck) = Date Then CountArch = 1
    objFSO.OpenTextFile(f, 2, True).Write Date & "#" & CountArch
    SetNumberArchive = CountArch
End Function

Думаю, разобраться несложно. Функция регистрирует свои запуски в определенную дату.