Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр

Sub fgh()
Dim a&, b&, c&, D&, n&
Dim t!: t = Timer
a = 10000000 'InputBox("a =", , 1)
b = 20000000 'InputBox("b =", , 100)
For a = b To a Step -1
'  Do
    c = a
    While c
      D = c Mod 10
      If D Then
        If a Mod D Then GoTo nxt 'Exit Do
      Else: GoTo nxt 'Exit Do
      End If
      c = c \ 10
    Wend
'    Debug.Print a
    n = n + 1
'  Loop Until True
nxt: Next
Debug.Print Timer - t, n
End Sub
 
 
Function ChkNum(n As Long) As Boolean
Dim D(0 To 9) As Integer
    nn& = n
    ChkNum = True
    Do
       k% = nn& Mod 10
If k% = 0 Then ChkNum = False: Exit Function 'сразу исключить числа с 0
       D(k%) = 1
       nn& = nn& \ 10
       If nn& = 0 Then Exit Do
    Loop
    For i% = 2 To 9
        If (D(i%) <> 0) Then
           If (n Mod i%) <> 0 Then
              ChkNum = False
              Exit Function
           End If
        End If
    Next i%
End Function
 
Sub Test()
Dim t!: t = Timer
 
    For a& = 10000000 To 20000000
        If ChkNum(a&) Then n& = n& + 1 'Debug.Print a&
    Next a&
Debug.Print Timer - t, n
 
End Sub