Для решения этой задачи можно использовать следующий код на VBA:

Sub CheckNumberForThree()
Dim number As Integer
Dim digit As Integer
Dim hasThree As Boolean
number = InputBox("Введите число:")
hasThree = False
Do While number > 0
digit = number Mod 10
If digit = 3 Then
hasThree = True
Exit Do
End If
number = number \ 10
Loop
If hasThree Then
MsgBox "Цифра 3 входит в число"
Else
MsgBox "Цифра 3 не входит в число"
End If
End Sub

При запуске данной программы пользователю будет предложено ввести число. Программа будет последовательно проверять каждую цифру этого числа и выводить сообщение о том, входит ли цифра 3 в число или нет.