I missed finding this capability :

    Dim fso As New FileSystemObject, fil As File
    Set fil = fso.GetFile(filepath)
    MsgBox "file size is " & (fil.Size) / 1000 & "KB"

Thanks