Дано натуральное число определить есть ли в нем цифра a

Function ЕстьЦифра(ччч, ццц) ЕстьЦифра = False ццц1 = ччч Mod 10 ччч1 = (ччч - ццц1) / 10 If ччч1 < 10 Then If ччч1 = ццц Or ццц1 = ццц Then ЕстьЦифра = True End If Else If ццц1 = ццц Then ЕстьЦифра = True Else ЕстьЦифра = ЕстьЦифра(ччч1, ццц) End If End If End Function Sub ppp() число = Cells(2, 1) цифра = Cells(2, 2) If ЕстьЦифра(число, цифра) Then Cells(2, 3) = "ДА" Else Cells(2, 3) = "НЕТ" End If End Sub а вот результат: