るきおさんの方法ってわかりやすくていいですね。
nFileSizeHigh As Long
nFileSizeLow As Long
の部分を Currency (8ビット２進数)でとって 10000 倍するという方法もあります。