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

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