Får værdien false når jeg bruger integer

Hej

Når jeg kører run, på nedenstående eksempel, skrives der blot "False" i "Immediate" vinduet. Er der nogen de rkan forklare mig hvorfor, og hvordan jeg retter det, så jeg får resultatet?

Mvh
regin

Public Sub gange()
Dim resultat As Integer
Dim a, b, c, d, e As Integer
a = 2
b = 3
c = 5
d = 8
e = 10
Debug.Print resultat = (d * b) + c * (e - a)
End Sub