vb編程，種樹的累乘器問題

Dim tree As Integer

Dim year As Integer

n=val(inputbox("輸入棵樹：","提示")

Do While tree < n

tree = tree + 2 ^ year

year = year + 1

Loop

MsgBox ("對應的年份為：" & year)