Найдите все числа из интервала (100, 200), которые кратны своему цифровому корню

Dim i, k, s, y, x, j As Integer 
'Console.Write("n=") 
'n = Console.ReadLine() 
For j = 100 To 200 
For i = 100 To 200 
Console.Write(i) 
x = i 
Do 
s = 0 
Do 
k = i Mod 10 
s = s + k 
i = i \ 10 
Console.Write(" " & k) 
Loop Until i = 0 
i = s 
Loop Until s <= 9 
Console.WriteLine(" цифровий корiнь числа = " & s) 
i = j 
y = j Mod s 
If y = 0 Then Console.WriteLine(j) 
Console.ReadLine() 
Next 
Next

Sub uuu()
    Dim i&, j&, sm&, rw&
    Dim s$
'------------------------
    rw = 1 'первая строка для выгрузки
    For i = 100 To 200 'цикл
        s = CStr(i) 'делаем число строкой
        Do While Len(s) > 1 'цикл, выполнять пока длина строки больше единицы
            DoEvents
            For j = 1 To Len(s) 'проходим по символам строки
                sm = sm + Val(Mid(s, j, 1)) 'суммируем символы
            Next
            s = sm 'перекладываем сумму в строку для следующей итерации
            sm = 0 'обнуляем сумму
        Loop
        'делим число на корень
        If i Mod Val(s) = 0 Then 'если после деления остался ноль то
            'вносим данные на лист
            Cells(rw, 1) = i 'число
            Cells(rw, 2) = s 'корень
            rw = rw + 1 'увеличиваем счётчик строк
        End If
    Next
    Beep
End Sub

Sub www()
    Dim i As Long, s As Long, rw As Long
    For i = 100 To 200
        s = (i - 1) Mod 9 + 1
        If i Mod s = 0 Then
            rw = rw + 1
            Cells(rw, 1) = i
            Cells(rw, 2) = s
        End If
    Next i
End Sub