Fai i test con questo codice

Dim BH As Byte, BL As Byte
Dim XDPI As Integer
Dim YDPI As Integer
Open "File.jpg" For Binary As #1
Seek #1, 15
Get #1, , BH
Get #1, , BL
XDPI = BH * 256& + BL
Get #1, , BH
Get #1, , BL
YDPI = BH * 256& + BL
Close #1
Debug.Print "Ris. Orizz. " & XDPI; " dpi"
Debug.Print "Ris. Vert. " & YDPI; " dpi"