представить введенное число прописью

[gaw4]

или как то так

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click()
Label1.Text = cp(TextBox1.Text)
End Sub

Function cp(s As String) As String

Dim i As Integer
Dim cislo, j As Integer, ed As Integer, des As Integer, sot As Integer
Dim s1, s10, s100

sotni = Array("", "сто", "двести", "триста", "четыреста", "пятьсот", "шестьсот", "семьсот", "восемьсот", "девятьсот")
desyatki = Array("", "десять", "двадцать", "тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто")
edenici = Array("", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
special = Array("десять", "одиннадцать", "двенадцать", "тринадцать", "четырнадцать", "пятнадцать", "шестнадцать", "семнадцать", "восемнадцать", "девятнадцать")
cp = ""
's = Text1.Text ' TextBox1.Text
cislo = Val(s)
If ((cislo < 0) Or (cislo > 1000)) Then
MsgBox ("Введите число в диапазоне 0..1000")
Exit Function
End If
j = Len(s)
Select Case j
Case 1
    ed = cislo
    cp = edenici(ed)

Case 2
    If Mid(s, 1, 1) = "1" Then
      s1 = Mid(s, 2, 1)
      ed = Val(s1)
      cp = special(ed)
    Else
    
        s10 = Mid(s, 1, 1)
        s1 = Mid(s, 2, 1)
        des = Val(s10)
        ed = Val(s1)
        cp = desyatki(des) & " " & edenici(ed)
    End If
Case 3
    s100 = Mid(s, 1, 1)
    s10 = Mid(s, 2, 1)
    s1 = Mid(s, 3, 1)
    des = Val(s10)
    ed = Val(s1)
    sot = Val(s100)
            If Mid(s, 2, 1) = "1" Then
               cp = sotni(sot) & " " & special(ed)
            Else
               cp = sotni(sot) & " " & desyatki(des) & " " & edenici(ed)
            End If
Case 4
    
End Select
If cislo = 1000 Then cp = "тысяча"
If cislo = 0 Then cp = "ноль"
End Function

[вася радугов]

как исправить ошибку:
array является типом и не может использоваться как выражение

[Sasha_Smirnov]

Для домашнего пользования есть

Sub MakeCardinal() 'преобразует выделенное (в документе Word) десятичное число - в то же самое, но прописью'
  
  If Not IsNumeric(Trim(Selection.Text)) Then Exit Sub
  
  ActiveDocument.Fields.Add(Selection.Range, wdFieldEmpty, "= " & Val(Selection.Text) & "\*cardtext").Unlink

End Sub

Диапазон чисел [0; 999999], в т. ч. с десятичным разделителем. Язык — любой установленный.
Инструкции здесь: http://www.programmersforum.ru/showthread.php?t=69094#4

В Pascal’е: http://www.programmersforum.ru/showthread.php?t=33764

И, как обычно, благодаря удачному названию темы, нажав [End], можно увидеть похожие.