Dim A As Integer
Dim B As Integer
A = 1: B = 0
Do While A < 5
B = B + A
A = A + 1
Loop

これを実行するとBが10になるなりますが
自分が何回考えてもBが4になってしまいます。
考え方のヒントだけでも頂けないでしょうか。
宜しくお願いします。