请问如何用VB求2到99的同构数的和,请直接把运算出的结果写出,

dim a as long
dim b as long
dim c as long
c=0
for i=2 to 99
a=i
b=a*a
if right$(b,len(a))=a then
c=c+a
end if
next i
msgbox"c"