Написание числовых данных прописью в Excel 2007

вот текст функции ПРОПИСЬ в модуле

Public sss1(5), ppp1(5), sss2(5), ppp2(5), edin(20), desat(10), sotni(9), mil(6) As Variant

Function propis(zzz As Currency) As String
Dim qqq1, okon As String
i2 = 0
zzz = Int(zzz)
jjj = zzz Mod 1000
If zzz = 0 Then
propis = "íîëü"
Else
propis = " "
End If
While zzz > 0 Or jjj > 0
n1 = jjj Mod 20
n2 = Int((jjj Mod 100) / 10)
n3 = Int(jjj / 100)
n4 = jjj Mod 10
' qqq1 = IIf(n1 > 0 And n2 < 2, edin(n1), edin(n4))
okon = ""
If i2 <> 1 Then
okon = ""
edin(1) = " îäèí"
edin(2) = " äâà"
Else
edin(1) = " îäíà"
edin(2) = " äâå"
End If
If n1 > 0 And n2 < 2 Then
qqq1 = edin(n1)
n5 = n1
Else
qqq1 = edin(n4)
n5 = n4
End If
If i2 = 1 Then
Select Case n5
Case 1
okon = "à"
Case 2 To 4
okon = "è"
Case Else
okon = ""
End Select
Else
Select Case n5
Case 1
okon = ""
Case 2 To 4
okon = "à"
Case Else
okon = "îâ"
End Select
If i2 = 0 Then
okon = ""
End If
End If
propis = sotni(n3) + IIf(n2 > 1, desat(n2), "") + qqq1 + mil(i2) + okon + propis
i2 = i2 + 1
zzz = Int(zzz / 1000)
jjj = zzz Mod 1000
Wend
End Function