Olá, @midel

O ideal seria vc anexar um arquivo com mais detalhes.

Bem, o código abaixo varre o diretório indicado e coloca todos os nomes de arquivo que começam com STD e têm extensão .pdf em uma matriz de uma dimensão (NomesArquivos). Observe que usa o coringa "*" pra filtrar.

Sub FiltrarArquivos()
  Const caminho As String = "C:\Users\SeuUserName\SuaPasta\"
  Const filtro As String = "STD*.pdf"
  Dim NomeArquivo As String, NomesArquivos() As String, i As Integer
  NomeArquivo = Dir(caminho & filtro)
  Do While NomeArquivo <> ""
    i = i + 1
    ReDim Preserve NomesArquivos(1 To i)
    NomesArquivos(i) = NomeArquivo
    NomeArquivo = Dir
  Loop
End Sub