vb中的一道简单问题

这个程序要求n不能超过9，否则会溢出，如果用double定义，则n在了会得不到精确结果。如果一定要求出足够大的n的结果，就不能用VB的加法运算，只能自编加法运算了。
dim n as long,i as long, s as long,j as long
n=inputbox("请输入n的值：")
s=0
for i=1 to n
for j=1 to i
s=s+2*10^(j-1)
next j
next i
print s

dim iCount as long
for i=1 to n
iCount=iCount+val(string(i,"2"))
next
print iCount