[Resolvido]Número sequencial do último arquivo da pasta

Olá, bom dia! Galera, tenho uma pasta com nome de arquivos seguindo uma sequência, exemplo: Arquivo 001 texto1.doc, Arquivo 002 texto2.doc e assim em diante. Criei um campo no meu formulário chamando "sequencial". A minha dúvida é: como posso fazer para ele verificar o número do último arquivo da pasta e colocar no campo "sequencial" a próxima numeração (no caso 003)?

Agradeço desde já.

Oi Pessoal, venho compartilhar a solução que encontrei. Depois de muita pesquisa, deu certo!

Private Sub ProcessoAtual_BeforeUpdate(Cancel As Integer)
Dim arq As String
Dim nomearq As String
Dim Ultimo_relatorio As String
Dim Meu_Dir As String
ChDrive "D:"
ChDir "D:\SUA PASTA\"

arq = Dir("INICIODONOMEDOARQUIVO*.docx")
While arq <> ""
Ultimo_relatorio = arq
arq = Dir
Wend
Me.despachoAtual = Ultimo_relatorio
Dim strSoNumero As String
   Dim strValorCampo As String
   Dim i As Integer
   
   strSoNumero = "" 'valor final da string contendo só números
   For i = 1 To Len(Me.despachoAtual) 'percorre o conteudo do campo Text0 baseado na quantidade de caracteres
       strValorCampo = Mid$(Me.despachoAtual, i, 1) 'captura o valor na posição determinada pelo valor de i
       If strValorCampo >= "0" And strValorCampo <= "9" Then 'se o valor nessa posição for igual a um número qualquer
           strSoNumero = strSoNumero + strValorCampo 'guarda esse valor dentro desta variável
           
       End If
   Next
   Me.despachoAtual = strSoNumero
   Me.despachoAtual = Left(despachoAtual, Len(despachoAtual) - 4) + 1
End Sub