[Resolvido]Como saber o tamanho de uma imagem antes de salvar do BD

Estou gravando imagens em uma tbl, porém eu gostaria de colocar uma condição em após o usuário localizar a imagem (anexar) verifica-se o tamanho da imagem antes de gravar na tbl, assim evito que sejam gravadas imagens acima de uma tamanho definido para o item!
alguém sabe como fazer isso via VBA?

Pode fazer uso desta função, antes de....

Public Function fncObterTamanhoFicheiro()
'Requer ativa a referencia VBA
'Microsoft Scripting Runtime
Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
Dim File As Scripting.File
Dim strCaminho As String
Dim fileSize As String

    strCaminho = "D:\teste.jpg"
    
    If FSO.FileExists(strCaminho) Then
         Set File = FSO.GetFile(strCaminho)
        
        fileSize = Format(File.Size / 1000000, "#,##0.00") & " " & "Megas"
    MsgBox fileSize
    End If
End Function

Perfeito!!!
Resolvido....

Obrigado pelo retorno o forum agradece.