Простая програмка на бейсике - VB

Формулировка задачи:

Не очень сложная программка)) Вопрос заключается в следующем... пользователь вводит числа, четные числа поменять на "1", нечетные на "2".. Должно быть так... Воодим 494, ответ 121..

Решение задачи: «Простая програмка на бейсике»

textual
                            Листинг программы 
                        

                            Private Sub Комманда3_Click() 
Dim число
Dim REZ
число = InputBox(" Введите число", "Вод данных")
If число <> "" Then
For I = 1 To Len(число)
REZ = REZ & IIf((Val(Mid(число, I, 1)) Mod 2) = 0, 2, 1)
Next I
End If
MsgBox REZ
End Sub
                        