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