Как обойти переполнение памяти? - VB

Формулировка задачи:

Как лучше обойти переполнение памяти в решении этой задачи? Есть притча о шахматах, где выигравший запросил у могущественного правителя, чтобы ему был выплачен выигрыш зерном пшеницы по следующим правилам: на первую клетку шахматной доски положить одно зерно, на вторую два зерна, на третью четыре, на четвертую восемь и т. д., иными словами, на каждую последующую в два раза больше зерен, чем на предыдущую. Сколько же зерен должен был бы получить выигравший?

Решение задачи: «Как обойти переполнение памяти?»

textual
                            Листинг программы 
                        

                            Dim a As Variant, b As Long
a = CDec(2)
Do
    a = a * 2
    b = b + 1
Loop While b < 63
                        