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

Function ChkNum(n As Long) As Boolean
Dim D(0 To 9) As Integer
    nn& = n
    ChkNum = True
    Do
       k% = nn& Mod 10
       D(k%) = 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()
 
    For a& = 100 To 200
        If ChkNum(a&) Then Debug.Print a&
    Next a&
 
End Sub