Trying to decide the best way to get theh actual physical measurements of an image file

I have the following code to get me measurements but I have no idea how to get the dimensions

Public Sub ImgDimension(img As String)
Dim myImage, fs
Dim intWidth, intHeight

Set fs = CreateObject("Scripting.filesystemobject")
If Not fs.FileExists(img) Then Exit Sub
Set myImage = LoadPicture(img)
intWidth = Round(myImage.Width / 26.4583)
intHeight = Round(myImage.Height / 26.4583)
Set myImage = Nothing
End Sub

Any ideas on on how to convert this height and width to inches and is there a clear cut way to determine the dimensions of an image as it will appear on paper or is that what an image maker cannot do.