VBA斐波纳契偶数之和，直到总和<100

Question

关于我的作业，我需要您的帮助。 目的是求和斐波纳契数列的所有偶数，直到总和<100

我创建了如下公式

Sub fibbo()

Dim sum As Long
Dim a As Long
Dim b As Long
sum = 0

    Do While sum < 100

        sum = a + b
        a = b
        b = sum
        a = a + 1

    Loop

Range("A1").Value = sum

End Sub

问题在于总数超过100。

请帮助。预先谢谢你。