[Resolvido]Inserir em caixa texto o arquivo com a maior data de criação em uma pasta

Bem amigos, o que necessito é o seguinte...

Código para ao carregar o form, verificar todos os arquivos em uma pasta e após isto lançar em uma caixa texto o nome do arquivo com a maior data de criação...

Estou a ver algo através do método: CreateObject("Scripting.FileSystemObject")

Qualquer idéia será bem vinda.

Poderia tambem extrair as datas do nome do arquivo, na parte em vermelho

SysSchool_be290513-c165658.accdb

Agradeço pela ajuda.

Cumprimentos.

Amigos consegui da seguinte maneira:

Sub VerificaDataArq()
Dim fso, Diretorio As String, Pasta, Arquivo
Dim DtData As Date, DtDataMax As Date
Dim ArquivoMax As String
Diretorio = CurrentProject.Path & "\Backup"

Set fso = CreateObject("Scripting.FileSystemObject")
Set Pasta = fso.GetFolder(Diretorio)
For Each Arquivo In Pasta.Files
If Arquivo Like "*.accdb" Then
DtData = Format(Arquivo.DateCreated, "dd-mm-yyyy")
    If DtData > DtDataMax Then
        DtDataMax = DtData
        ArquivoMax = Arquivo.Name
    End If
End If
Next
MsgBox "Maior Data " & DtDataMax & "   " & Arquivo & "", vbInformation, "Atenção"
Set fso = Nothing: Set Pasta = Nothing
End Sub

Cumprimentos.