Найти сумму всех n -значных чисел, кратных k (1 < n < 4) - VB

Function S(n as long, k as long) As long
   for i&=10^(n-1) to 10^(n-1)+k
        if (i& mod k) =0 then
          Exit for
        End if
   Next i&
   Do while (i& <= 10^(n)-1)
        S=S+i&
        i&=i&+k
   Loop         
End function