このコードは0を返す必要がありますが、1を返します。すべての数値が長整数であっても、VBAは浮動小数点演算を実行しているように見えます。
Function demo() As Long
Dim const1 As Long
Dim const2 As Long
Dim result As Long
const1 = 1796&
const2 = 1798&
result = const1 / const2
demo = result
End Function