Public Function yazıyla(tex As String) As String
bir = Array(" ", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
onluk = Array(" ", " on ", " yirmi ", "otuz ", " kırk ", " elli ", " atmış ", " yetmiş ", " seksen ", " doksan ")
yuzluk = Array(" ", " yüz ", " ikiyüz ", " üçyüz ", " dörtyüz ", " beşyüz ", " altıyüz ", " yediyüz ", " sekizyüz ", "dokuzyüz")
ucluk = Array("", " ", " bin ", " milyon ", " milyar ", " trilyon ", " katrilyon ", " kentrilyon ", " abartıyon ")
If Len(tex) Mod 3 = 1 Then tex = "00" & tex
If Len(tex) Mod 3 = 2 Then tex = "0" & tex
For i = CInt(CInt(Len(tex) + 0.4) / 3) To 1 Step -1
k = k + 1
x = Trim(yuzluk(Mid(tex, (i * 3) - 2, 1)) & onluk(Mid(tex, (i * 3) - 1, 1)) & bir(Mid(tex, (i * 3), 1)))
yazıyla = yuzluk(Mid(tex, (i * 3) - 2, 1)) & onluk(Mid(tex, (i * 3) - 1, 1)) & bir(Mid(tex, (i * 3), 1)) & IIf(x = "", ucluk(0), ucluk(k)) & yazıyla
Next i
End Function