Пращам ти кода,който използвам много отдавна.Сигурно може да се оптимизира,ама много ме мързи.Я кво хубаво време е навън...само за риба

P.S. Направил съм го само до 999.99лв. Предполагам няма да те затрудни да си го направиш и за повече

Public Function Slowom(number) As String
Dim drob As Single, cqlo As Integer, p_dec As Integer, prow As Integer, Pe1 As Integer
cqlo = Fix(number)
drob = number - cqlo
If drob > 0 Then
drob = drob * 100
prow = 1
If drob > 19 Then
str2 = nad_20(drob, "ñòîòèíêè")
Else
str2 = pod_20(drob, "ñòîòèíêè")
End If
End If
p_dec = Right(cqlo, 2)
If p_dec > 19 Then
str3 = nad_20(p_dec, "ëåâà")
Else
str3 = pod_20(p_dec, "ëåâà")
End If
If cqlo > 99 Then
Pe1 = 1
Select Case Left(cqlo, 1)
Case 1
str4 = "ñòî"
Case 2
str4 = "äâåñòà"
Case 3
str4 = "òðèñòà"
Case 4
str4 = "÷åòèðèñòîòèí"
Case 5
str4 = "ïåòñòîòèí"
Case 6
str4 = "øåñòñòîòèí"
Case 7
str4 = "ñåäåìñòîòèí"
Case 8
str4 = "îñåìñòîòèí"
Case 9
str4 = "äåâåòñòîòèí"
End Select
End If
If Pe1 = 0 Then
If prow = 1 Then
Slowom = str3 & " è " & str2
Else
Slowom = str3
End If
Else
If prow = 1 Then
Slowom = str4 & " è " & str3 & " è " & str2
Else
Slowom = str4 & " è " & str3
End If

End If
End Function
Function nad_20(num, mm) As String
First = Left(num, 1)
Select Case First
Case 2
str_2 = "äâàäåñåò"
Case 3
str_2 = "òðèäåñåò"
Case 4
str_2 = "÷åòèðèäåñåò"
Case 5
str_2 = "ïåòäåñåò"
Case 6
str_2 = "øåñòäåñåò"
Case 7
str_2 = "ñåäåìäåñåò"
Case 8
str_2 = "îñåìäåñåò"
Case 9
str_2 = "äåâåòäåñåò"

End Select

Select Case Right(num, 1)
Case 0
prow = 1
Case 1
If mm = "ëåâà" Then
str_3 = " åäèí"
Else
str_3 = " åäíà"
End If
Case 2
If mm = "ëåâà" Then
str_3 = " äâà"
Else
str_3 = " äâå"
End If
Case 3
str_3 = " òðè"
Case 4
str_3 = " ÷åòèðè"
Case 5
str_3 = " ïåò"
Case 6
str_3 = " øåñò"
Case 7
str_3 = " ñåäåì"
Case 8
str_3 = " îñåì"
Case 9
str_3 = " äåâåò"
End Select
If prow = 1 Then
nad_20 = str_2 & " " & mm
Else
nad_20 = str_2 & " è " & str_3 & " " & mm
End If
End Function
Function pod_20(num, mm)
Dim prom As Integer
prom = num
Select Case prom
Case 1
If mm = "ëåâà" Then
str_1 = " åäèí"
Else
str_1 = " åäíà"
End If
Case 2
If mm = "ëåâà" Then
str_1 = " äâà"
Else
str_1 = " äâe"
End If
Case 3
str_1 = " òðè"
Case 4
str_1 = " ÷åòèðè"
Case 5
str_1 = " ïåò"
Case 6
str_1 = " øåñò"
Case 7
str_1 = " ñåäåì"
Case 8
str_1 = " îñåì"
Case 9
str_1 = " äåâåò"
Case 10
str_1 = " äåñåò"
Case 11
str_1 = " åäèíàäåñåò"
Case 12
str_1 = " äâàíàäåñåò"
Case 13
str_1 = " òðèíàäåñåò"
Case 14
str_1 = " ÷åòèðèíàäåñåò"
Case 15
str_1 = " ïåòíàäåñåò"
Case 16
str_1 = " øåñòíàäåñåò"
Case 17
str_1 = " ñåäåìíàäåñåò"
Case 18
str_1 = " îñåìíàäåñåò"
Case 19
str_1 = " äåâåòíàäåñåò"
End Select
pod_20 = str_1 & " " & mm


End Function