Задача c циклом в Visual Basic - VB

Формулировка задачи:

Помогите пожалуйста Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9 вот мой код, но он не работает... что-то не доделал

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i, k, n, p As Integer
Dim s, d, c, e, f As Double
 d = 99
 c = 10
  For i = c To d
    While i <= d
        k = i
        s = 0
        n = 0
           While k > 0
              s = s + k Mod c
              k = k \ c
           Wend
             k = i
             For p = 2 To 9
               e = k * p
               f = 0
                  While e > 0
                      f = f + e Mod c
                      e = e \ 10
                  Wend
                
    If s = f Then Next n
        Wend
           If n = 8 Then MsgBox ("Найдено число: " & Format(i))
              Next i
 
End Sub

Решение задачи: «Задача c циклом в Visual Basic»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub main()
Dim n&, a&, b&
For n = 2 To 9
    Debug.Print vbLf; "при умножении на"; n
    For a = 1 To 9
        For b = 0 To 9
            If a + b = SumDig((10 * a + b) * n) Then Debug.Print 10 * a + b;
        Next
    Next
Next
End Sub
 
Function SumDig&(i&)
'возвращает сумму цифр числа
While i
    SumDig = SumDig + i Mod 10
    i = i \ 10
Wend
End Function