Module mainModule
Private Const BUFFERSIZE As Long = 65535
'Private m_Width As Long
Private m_Height As Long

Sub Main()
Dim wysokość&
ReadImageInfo("x:\image.jpg")
...