Среди всех натуральных четырехзначных чиселподсчитать количество таких, сумма…

У меня получилось 6216Dim i As Integer Dim s As IntegerDim d As IntegerFor i=1000 To 9999 s=CInt (CInt (Mid (CStr (i) , 1, 1) ^ 2+(CInt (Mid (CStr (i) , 2, 1) ^ 2+(CInt (Mid (CStr (i) , 3, 1) ^ 2+(CInt (Mid (CStr (i) , 4, 1) ^ 2) If s Mod 2=0 Or s Mod 3=0 Then d+=1 Next MsgBox (d)