FSO - problemas ao verificar a data de criação do arquivo

Prezados, bom dia!

Estou criando em um projeto algumas funções para trabalhar com arquivos, utilizando o objeto FSO.

As funções que são apenas 3, estão dentro de um módulo de classe, sendo uma para verificar se o arquivo existe, uma para copiar o arquivo e uma última para verificar a data do arquivo. As 2 primeiras estão funcionando perfeitamente, a terceira, quando eu a executo, aparece o seguinte erro:

"O procedimento Property Let não foi definido e o procedimento Property Get não retornou um objeto"

O código da função que está dando erro é:

Function dataArquivo(ByVal argNomeArquivo As String) As Date
'Utiliza o objeto fso para retornar a data de criação de um arquivo

On Error GoTo tratamento

Dim fso As New FileSystemObject
Dim arquivo As Object

If ExisteArquivo(argNomeArquivo) = True Then
Set fso = CreateObject("scripting.filesystemobject")
With fso
   Set arquivo = .GetFile(argNomeArquivo)
With arquivo
dataArquivo = .DateCreated(argNomeArquivo)
End With

End With
End If

saida:
Exit Function

tratamento:
MsgBox Err.Description
dataArquivo = #1/1/1900#
Resume saida

End Function


A função acima chama a procedimento ExisteArquivo, cujo código está abaixo:

Function ExisteArquivo(ByVal argNomeArquivo As String) As Boolean

'verifica se um arquivo existe no diretorio informado, e retorna verdadeiro ou falso.
On Error GoTo tratamento

Dim fso As New FileSystemObject

Set fso = CreateObject("Scripting.FileSystemObject")

With fso

If .FileExists(argNomeArquivo) Then
ExisteArquivo = True
Else
ExisteArquivo = False
End If

End With

saida:
Exit Function

tratamento:
MsgBox Err.Description
ExisteArquivo = False
Resume saida


End Function


Alguém pode me ajudar?

Talvez assim:

dataArquivo = .DateCreated

Obrigado Criquio!

Era justamente este o ponto, não precisava passar o nome do arquivo de novo....

Assunto resolvido!

Só faltou clicar no botão Resolvido ali embaixo.