Пользователь вводит цифру. Программа выводит её представление прописью

option base 0
sub t()
[c1] = array("ноль", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")(inputbox("введите цифру"))
end sub

sub symbol()
dim a as integer
a = inputbox("Введите цифру: ")
select case a
case 1: Worksheets("Лист1").Range("C1").Value = "один"
case 2: Worksheets("Лист1").Range("C1").Value = "два"
case 3: Worksheets("Лист1").Range("C1").Value = "три"
case 4: Worksheets("Лист1").Range("C1").Value = "четыре"
case 5: Worksheets("Лист1").Range("C1").Value = "пять"
case 6: Worksheets("Лист1").Range("C1").Value = "шесть"
case 7: Worksheets("Лист1").Range("C1").Value = "семь"
case 8: Worksheets("Лист1").Range("C1").Value = "восемь"
case 9: Worksheets("Лист1").Range("C1").Value = "девять"
end select
end sub

'Option Base 1 'неважно какой
Sub t()
[c1] = Split("ноль один два три четыре пять шесть семь восемь девять")(InputBox("введите цифру"))
End Sub

Sub t()
    [c1] = Split("ноль один два три четыре пять шесть семь восемь девять")(Val(InputBox("введите цифру")))
End Sub

Sub NumSpell()
Dim N
 
    N = InputBox("Цифра:", "Прямые поставки в ячейку C1", Fix(10 * Rnd))
    If Not IsNumeric(N) Or N < 0 Or N > 999999 Then Exit Sub
 
With Selection
    .TypeParagraph
    .LanguageID = 1049 'на русском; укр.: 1058; анг.: 1033; бел.: 1059
    ActiveDocument.Fields.Add(.Range, text:="= " & N & "\* cardtext").Unlink
End With
 
End Sub