How do i capture the size of image while selecting the image

The file dialog box will only return the full path and name of the image file. The size of the image can then be found as shown below.

Function ShowFilerSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFileSize = s
End Function

Regards,