n = 15108097 T = n Mod 100 s = 0 For c = 1 To T s = s + c ^ (-5) Next c MsgBox s