Дано натуральное число определить есть ли в нем цифра 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  а вот результат: