'сумма прописью на русском языке
Function ABC_123(n)
    Dim Nums1, Nums2, Nums3, Nums4, Nums5 As Variant
    Nums1 = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
    Nums2 = Array("", "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
    Nums3 = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
    Nums4 = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
    Nums5 = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
   
        koma_txt = ""
        dr_sottys_mil = ""
        dr_decmil = ""
        dr_mil = ""
        dr_sottys = ""
        dr_dectys = ""
        dr_tys = ""
        dr_sot = ""
        dr_dec = ""
        dr_ed = ""
        konec = ""
        

 
    cel = Fix(n)
    'If n <= 0 Then Exit Function
    
    ed = Int(Int(n - (10 ^ 1) * Int(n / (10 ^ 1))) / 10 ^ (1 - 1))
    dec = Int(Int(n - (10 ^ 2) * Int(n / (10 ^ 2))) / 10 ^ (2 - 1))
    sot = Int(Int(n - (10 ^ 3) * Int(n / (10 ^ 3))) / 10 ^ (3 - 1))
    tys = Int(Int(n - (10 ^ 4) * Int(n / (10 ^ 4))) / 10 ^ (4 - 1))
    dectys = Int(Int(n - (10 ^ 5) * Int(n / (10 ^ 5))) / 10 ^ (5 - 1))
    sottys = Int(Int(n - (10 ^ 6) * Int(n / (10 ^ 6))) / 10 ^ (6 - 1))
    mil = Int(Int(n - (10 ^ 7) * Int(n / (10 ^ 7))) / 10 ^ (7 - 1))
    decmil = Int(Int(n - (10 ^ 8) * Int(n / (10 ^ 8))) / 10 ^ (8 - 1))
    sottys_mil = Int(Int(n - (10 ^ 9) * Int(n / (10 ^ 9))) / 10 ^ (9 - 1))
    sottys_mil_txt = Nums3(sottys_mil)
    Select Case decmil
        Case 1
            mil_txt = Nums5(mil) & "миллионов "
            GoTo www
        Case 2 To 9
            decmil_txt = Nums2(decmil)
    End Select
    
    Select Case mil
        Case 1
            mil_txt = Nums1(mil) & "миллион "
        Case 2, 3, 4
            mil_txt = Nums1(mil) & "миллиона "
        Case 5 To 20
            mil_txt = Nums1(mil) & "миллионов "
    End Select
www:
    sottys_txt = Nums3(sottys)
    Select Case dectys
        Case 1
            tys_txt = Nums5(tys) & "тысяч "
            GoTo eee
        Case 2 To 9
            dectys_txt = Nums2(dectys)
    End Select
    
    Select Case tys
        Case 0
            If dectys > 0 Then tys_txt = Nums4(tys) & "тысяч "
        Case 1
            tys_txt = Nums4(tys) & "тысячa "
        Case 2, 3, 4
            tys_txt = Nums4(tys) & "тысячи "
        Case 5 To 9
            tys_txt = Nums4(tys) & "тысяч "
    End Select
    
eee:
    sot_txt = Nums3(sot)
    
    Select Case dec
    Case 1
        dec_txt = Nums5(ed)
        GoTo rrr
    Case 2 To 9
        dec_txt = Nums2(dec)
    End Select
    
    Select Case ed
    Case 1 To 9
       If Len(n) = Len(cel) Then ed_txt = Nums1(ed) Else ed_txt = Nums4(ed)
        
       End Select
    
    
rrr:
    
    If ed_txt = Nums4(1) Then koma_txt = "целая" Else koma_txt = "целых"
    If Len(n) = Len(cel) Then koma_txt = ""
    If Len(n) = Len(cel) Then GoTo ttt
    
    
 '[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
   
qqq:
    drob = -Int(-(n * 10 ^ (Len(n) - Len(cel) - 1)) - -(cel * 10 ^ (Len(n) - Len(cel) - 1)))
    dr_ed = Int(Int(drob - (10 ^ 1) * Int(drob / (10 ^ 1))) / 10 ^ (1 - 1))
    dr_dec = Int(Int(drob - (10 ^ 2) * Int(drob / (10 ^ 2))) / 10 ^ (2 - 1))
    dr_sot = Int(Int(drob - (10 ^ 3) * Int(drob / (10 ^ 3))) / 10 ^ (3 - 1))
    dr_tys = Int(Int(drob - (10 ^ 4) * Int(drob / (10 ^ 4))) / 10 ^ (4 - 1))
    dr_dectys = Int(Int(drob - (10 ^ 5) * Int(drob / (10 ^ 5))) / 10 ^ (5 - 1))
    dr_sottys = Int(Int(drob - (10 ^ 6) * Int(drob / (10 ^ 6))) / 10 ^ (6 - 1))
    dr_mil = Int(Int(drob - (10 ^ 7) * Int(drob / (10 ^ 7))) / 10 ^ (7 - 1))
    dr_decmil = Int(Int(drob - (10 ^ 8) * Int(drob / (10 ^ 8))) / 10 ^ (8 - 1))
    dr_sottys_mil = Int(Int(drob - (10 ^ 9) * Int(drob / (10 ^ 9))) / 10 ^ (9 - 1))
   
   ' drob = Fix((m - cel) * 10 ^ (Len(m) - Len(cel) - 1))
   If n = 0.14 Then dr_ed = 4
   
   dr_sottys_mil_txt = Nums3(dr_sottys_mil)
        
   
   
    Select Case dr_decmil
        Case 1
            dr_mil_txt = Nums5(dr_mil) & "миллионов "
            GoTo www1
        Case 2 To 9
            dr_decmil_txt = Nums2(dr_decmil)
    End Select

    Select Case dr_mil
        Case 1
            dr_mil_txt = Nums1(dr_mil) & "миллион "
        Case 2, 3, 4
            dr_mil_txt = Nums1(dr_mil) & "миллиона "
        Case 5 To 20
            dr_mil_txt = Nums1(dr_mil) & "миллионов "
    End Select
www1:
    dr_sottys_txt = Nums3(dr_sottys)
    Select Case dr_dectys
        Case 1
            dr_tys_txt = Nums5(dr_tys) & "тысяч "
            GoTo eee1
        Case 2 To 9
            dr_dectys_txt = Nums2(dr_dectys)
    End Select

    Select Case dr_tys
        Case 0
            If dr_dectys > 0 Then dr_tys_txt = Nums4(dr_tys) & "тысяч "
        Case 1
            dr_tys_txt = Nums4(dr_tys) & "тысячa "
        Case 2, 3, 4
            dr_tys_txt = Nums4(dr_tys) & "тысячи "
        Case 5 To 9
            dr_tys_txt = Nums4(dr_tys) & "тысяч "
    End Select
eee1:
    dr_sot_txt = Nums3(dr_sot)

    Select Case dr_dec
    Case 1
        dr_ed_txt = Nums5(dr_ed)
        GoTo ppp1
    Case 2 To 9
        dr_dec_txt = Nums2(dr_dec)
        End Select
ppp:
    Select Case dr_ed
     Case 1
     dr_ed_txt = Nums4(dr_ed)
     Case 2
     dr_ed_txt = Nums4(dr_ed)
     Case 3 To 9
     dr_ed_txt = Nums1(dr_ed)
    End Select
ppp1:

konec_znach = Len(n) - Len(cel) - 1
Select Case konec_znach
    Case 1
        If dr_ed_txt = Nums4(1) Then konec = "десятая" _
        Else: konec = "десятых"
    Case 2
       If dr_ed_txt = Nums4(1) Then konec = "сотая" _
       Else: konec = "сотых"
    Case 3
        If dr_ed_txt = Nums4(1) Then konec = "тысячная" _
        Else: konec = "тысячных"
    Case 4
        If dr_ed_txt = Nums4(1) Then konec = "десятитысячная" _
        Else: konec = "десятитысячных"
    Case 5
        If dr_ed_txt = Nums4(1) Then konec = "стотысячная" _
        Else: konec = "стотысячных"
    Case 6
        If dr_ed_txt = Nums4(1) Then konec = "миллионная" _
        Else: konec = "миллионных"
    Case 7
        If dr_ed_txt = Nums4(1) Then konec = "десятимиллионная" _
        Else: konec = "десятимиллионных"
    Case 8
        If dr_ed_txt = Nums4(1) Then konec = "стомиллионная" _
        Else: konec = "стомиллионных"
    Case 9
        If dr_ed_txt = Nums4(1) Then konec = "миллиардная" _
        Else: konec = "миллиардных"
    End Select
        'If konec_znach > 8 Then konec = "........а хрен его знает какая ... :)"
ttt:
    
      If sottys_mil_txt = "" And decmil_txt = "" And mil_txt = "" And sottys_txt = "" And dectys_txt = "" And tys_txt = "" And sot_txt = "" And dec_txt = "" And ed_txt = "" Then koma_txt = ""

    ABC_123 = sottys_mil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt & koma_txt & " " & dr_sottys_mil_txt & dr_decmil_txt & dr_mil_txt & dr_sottys_txt & dr_dectys_txt & dr_tys_txt & dr_sot_txt & dr_dec_txt & dr_ed_txt & konec
    If Len(cel) > 9 Or konec_znach > 9 Then ABC_123 = "Диапазон 999 999 999,999 999 999"
    If n = 0 Then ABC_123 = "НЕТ"
    If n < 0 Then ABC_123 = "Только положительные числа"
End Function