Já bych to řešil cyklem, v něm skládal název souboru a následně kontroloval jeho existenci. Tedy něco takového:

For i = 1 To 9
  NameFile = "subor_a(" & Trim(Str(i)) & ")"
  ...       ' Zde doplnit do NameFile plnou cestu
  If Len(Dir(NameFile)) > 0 Then  ' OK, soubor existuje, vyskocim z cyklu
    Exit For
  End If
Next i