Написать процедуру нахождения всех натуральных чисел, не превосходящих заданного n

Sub Search()
Dim ns As String                                            'введеное число в string
Dim an As Byte
Dim n As Long                                               'искомое n
Dim j As Byte                                               'индекс цикла
Dim i As Long                                               'индекс цикла
Dim si As String                                            'то же но $string
Dim dm As Byte                                              'число из каждой цифры
Dim list As String                                          'список чисел
Dim div As Boolean                                          'флаг - делятся нацело
Dim valid As Boolean
list = ""
r: ns = InputBox("Введите значение n", "Search", 2010)       'запрашиваем число
valid = True
For i = 1 To Len(ns)                                         'проверяем
an = asc(Mid(ns, i, 1))                                      'введенное число
If an < 48 Or an > 57 Then                                   'чтоб
    valid = False                                            'не
End If                                                       'было
Next i                                                       'ошибок
If valid = False Then GoTo r                                 'при
n = Val(ns)                                                  'обработке
If n = 0 Then GoTo r                                         '
For i = 1 To n
si = Trim(Str(i))
For j = 1 To Len(si)
div = True
dm = Val(Mid(si, j, 1))                                     'цифры в числе
If dm = 0 Then                                              ''если ноль то переходим к следующей цифре в числе
    div = False
    GoTo rs
End If
If i Mod dm <> 0 Then
    div = False
    GoTo rs
End If
rz: Next j
rs: If div = True Then
list = list & si & ", "                                     'добавляем в список новое число
End If
Next i
MsgBox list, vbInformation, "Search"                         'выводим список чисел в messagebox
End Sub