Кратно ли 13 утроенная сумма цифр 3-х значного числа 

Dim msg As String Dim x As Integer         For x = 100 To 999             If ((CInt(Mid(CStr(x), 1, 1)) + CInt(Mid(CStr(x), 2, 1)) + CInt(Mid(CStr(x), 3, 1))) * 3) Mod 13 = 0 Then                 msg = msg & "Утроенная сумма цифр равная " & ((CInt(Mid(CStr(x), 1, 1)) + CInt(Mid(CStr(x), 2, 1)) + CInt(Mid(CStr(x), 3, 1))) * 3) & ", числа " & x & ", кратна 13" & vbCrLf            End If         Next  '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535  MsgBox(msg) Утроенная сумма цифр равная 39, числа 139, кратна 13 Утроенная сумма цифр равная 39, числа 148, кратна 13 Утроенная сумма цифр равная 39, числа 157, кратна 13 Утроенная сумма цифр равная 39, числа 166, кратна 13 Утроенная сумма цифр равная 39, числа 175, кратна 13 Утроенная сумма цифр равная 39, числа 184, кратна 13 Утроенная сумма цифр равная 39, числа 193, кратна 13 Утроенная сумма цифр равная 39, числа 229, кратна 13 Утроенная сумма цифр равная 39, числа 238, кратна 13 Утроенная сумма цифр равная 39, числа 247, кратна 13 Утроенная сумма цифр равная 39, числа 256, кратна 13 Утроенная сумма цифр равная 39, числа 265, кратна 13 Утроенная сумма цифр равная 39, числа 274, кратна 13 Утроенная сумма цифр равная 39, числа 283, кратна 13 Утроенная сумма цифр равная 39, числа 292, кратна 13 Утроенная сумма цифр равная 39, числа 319, кратна 13 Утроенная сумма цифр равная 39, числа 328, кратна 13 Утроенная сумма цифр равная 39, числа 337, кратна 13 Утроенная сумма цифр равная 39, числа 346, кратна 13 Утроенная сумма цифр равная 39, числа 355, кратна 13 Утроенная сумма цифр равная 39, числа 364, кратна 13 Утроенная сумма цифр равная 39, числа 373, кратна 13 Утроенная сумма цифр равная 39, числа 382, кратна 13 Утроенная сумма цифр равная 39, числа 391, кратна 13 Утроенная сумма цифр равная 39, числа 409, кратна 13 Утроенная сумма цифр равная 39, числа 418, кратна 13 Утроенная сумма цифр равная 39, числа 427, кратна 13 Утроенная сумма цифр равная 39, числа 436, кратна 13 Утроенная сумма цифр равная 39, числа 445, кратна 13 Утроенная сумма цифр равная 39, числа 454, кратна 13 Утроенная сумма цифр равная 39, числа 463, кратна 13 Утроенная сумма цифр равная 39, числа 472, кратна 13 Утроенная сумма цифр равная 39, числа 481, кратна 13 Утроенная сумма цифр равная 39, числа 490, кратна 13 Утроенная сумма цифр равная 39, числа 508, кратна 13 Утроенная сумма цифр равная 39, числа 517, кратна 13 Утроенная сумма цифр равная 39, числа 526, кратна 13 Утроенная сумма цифр равная 39, числа 535, кратна 13 Утроенная сумма цифр равная 39, числа 544, кратна 13 Утроенная сумма цифр равная 39, числа 553, кратна 13 Утроенная сумма цифр равная 39, числа 562, кратна 13 Утроенная сумма цифр равная 39, числа 571, кратна 13 Утроенная сумма цифр равная 39, числа 580, кратна 13 Утроенная сумма цифр равная 39, числа 607, кратна 13 Утроенная сумма цифр равная 39, числа 616, кратна 13 Утроенная сумма цифр равная 39, числа 625, кратна 13 Утроенная сумма цифр равная 39, числа 634, кратна 13 Утроенная сумма цифр равная 39, числа 643, кратна 13 Утроенная сумма цифр равная 39, числа 652, кратна 13 Утроенная сумма цифр равная 39, числа 661, кратна 13 Утроенная сумма цифр равная 39, числа 670, кратна 13 Утроенная сумма цифр равная 39, числа 706, кратна 13 Утроенная сумма цифр равная 39, числа 715, кратна 13 Утроенная сумма цифр равная 39, числа 724, кратна 13 Утроенная сумма цифр равная 39, числа 733, кратна 13 Утроенная сумма цифр равная 39, числа 742, кратна 13 Утроенная сумма цифр равная 39, числа 751, кратна 13 Утроенная сумма цифр равная 39, числа 760, кратна 13 Утроенная сумма цифр равная 39, числа 805, кратна 13 Утроенная сумма цифр равная 39, числа 814, кратна 13 Утроенная сумма цифр равная 39, числа 823, кратна 13 Утроенная сумма цифр равная 39, числа 832, кратна 13 Утроенная сумма цифр равная 39, числа 841, кратна 13 Утроенная сумма цифр равная 39, числа 850, кратна 13 Утроенная сумма цифр равная 78, числа 899, кратна 13 Утроенная сумма цифр равная 39, числа 904, кратна 13 Утроенная сумма цифр равная 39, числа 913, кратна 13 Утроенная сумма цифр равная 39, числа 922, кратна 13 Утроенная сумма цифр равная 39, числа 931, кратна 13 Утроенная сумма цифр равная 39, числа 940, кратна 13 Утроенная сумма цифр равная 78, числа 989, кратна 13 Утроенная сумма цифр равная 78, числа 998, кратна 13