某单位制定生产计划，未来五年的生产量年递增率为5%，从第六年起年递增率调整到8%，试计算常量翻一翻（基数的2倍）所需的最少年数。

重新发一个【运行截图】。
对于【If】语句那一行，没有报错。

比较好一些的方法是——
Dim cc, m, S, S1
m = 1 : S1 = 1.05 ^ 5
Do
S = S1 * (1 + 0.08) ^ m
If S >= 2 Then Exit Do
m = m + 1
Loop
cc = cc & "答：需要 " & CStr(m + 5) & " 年，年生产计划翻一翻。"
MsgBox cc, 0 + 64, "计算结果"

这题是道小学生数学应用题，
解：设初始常量为C,第n年的生产实现目标（n≥6，第n年生产≥2c）
方程为：c(1.05)^5*(1.08)^(n-5)≥2c
化简为：1.08^(n-5)≥2*1.05^-5
代码：
Dim n
n=6
Do While 1.08^(n-5)＜2*1.05^-5
n=n+1
Loop
Print "第" ＆ n “年”