Разработать алгоритм и программу на VBA по варианту.

Ввести трёхзначное число и вывести его цифры по одной. vb
Нужно сделать примерно такую работ
входные данные, выходны, и схему алгоритмов и текст программы. Я вроде текст нашел, если подойдет, то только сделать первую страниц
Sub DisplayDigits(
Dim number As Intege
Dim digit As Intege
' Ввод трехзначного числ
number = InputBox("Введите трехзначное число:"
' Проверка, что введено трехзначное числ
If number 999 The
MsgBox "Введено некорректное число. Пожалуйста, введите трехзначное число.
Exit Su
End I
' Вывод цифр по одно
digit = number \ 100 ' Получение первой цифр
MsgBox "Первая цифра: " & digi
digit = (number \ 10) Mod 10 ' Получение второй цифр
MsgBox "Вторая цифра: " & digi
digit = number Mod 10 ' Получение третьей цифр
MsgBox "Третья цифра: " & digi
End Sub