Дано натуральное число, определить входит ли число a в число b

Private Sub Command1_Click()
Dim c As Long
Dim x As Double
Dim a As Byte
c = Val(Text1.Text)
a = Val(Text2.Text)
k = True
Do While c >= 1
x = c Mod 10
If x = a Then k = False: MsgBox "Âõîäèò", 64, "": Exit Sub
c = Int(c / 10)
Loop
MsgBox "Íå âõîäèò", 64, "ïîïðîáóéå äðóãîå ÷èñëî":
End Sub

k = True
If x = a Then k = False: MsgBox "Âõîäèò", 64, "": Exit Sub
c = Int(c / 10)

Function AinB(a&, ByVal b&) As Long
        'возвращает число вхождений числа а в число b
Dim m&  'm - модуль числа а - мин. число кратное 10, которое >a
m = 10
While m <= a
    m = m * 10
Wend
While b
    If b Mod m = a Then
        AinB = AinB + 1
        b = b \ m
    Else
        b = b \ 10
    End If
Wend
End Function

Function AinBs(a&, b&) As Long
AinBs = UBound(Split(b, a))
End Function

K = 0
Do While x > 0
R = x Mod 10
K = K + 1
x = x \ 10
DoEvents
Loop

Function CountRepet(ByVal Digits, _
                    ByVal Repet) As Integer
' Аргументы функции: первый - число (последовательность цифровых символов)
' в котором нужно найти колич вхожденbй второго аргумента.
 
Dim i As Integer
 
    On Error GoTo Err_handle
    
' Преобразуем аргументы в текст для разбора:
    Digits = Format$(Digits)
    Repet = Format$(Repet)
    
' Перебираем посимвольно и считаем вхождения:
        For i = 1 To Len(Digits)
            If Mid(Digits, i, 1) = Repet Then CountRepet = CountRepet + 1
        Next i
        
MsgBox "Количество вхождений символа " & Repet & " в число " & _
        Digits & " - " & CountRepet, vbInformation, "Result"
        
Err_end:
        Exit Function
Err_handle:
        MsgBox Err.Number & ": " & Err.Description
        Resume Err_end
End Function

Function CountRepet(ByVal Digits, _
                      ByVal Repet) As Integer
' Аргументы функции: первый - число (последовательность цифровых символов)
' в котором нужно найти колич вхожденbй второго аргумента.
 
Dim i As Integer, s As String
 
    On Error GoTo Err_handle
    
' Преобразуем аргументы в текст для разбора:
    Digits = Format$(Digits)
    Repet = Format$(Repet)
    
' Перебираем посимвольно и считаем вхождения:
        For i = 1 To Len(Digits)
            s = s & Mid(Digits, i, 1)
            If InStr(s, Repet) Then
                s = Mid(Repet, i + 1)
                CountRepet = CountRepet + 1
            End If
        Next i
        
MsgBox "Количество вхождений символа " & Repet & " в число " & _
        Digits & " - " & CountRepet, vbInformation, "Result"
        
Err_end:
        Exit Function
Err_handle:
        MsgBox Err.Number & ": " & Err.Description
        Resume Err_end
End Function

Private Sub Command1_Click()
Dim a$, b$
a = 1010101
b = 101
MsgBox b & " in " & a & "  --->  " & k(a, b, 1)
End Sub
 
Function k%(s$, s1$, n)
  If Len(s) > 0 Then  k = k(Mid(s, n + 1), s1, n) - (Mid(s, n, Len(s1)) = s1)
End Function