'Fungsi Terbilang dengan VBA untuk MS
Office'Ditulis oleh maseko'Fungsi penterjemahan masing-masing angkaPrivate
Function KeKata(Nomor)TrjKata = Array("", "satu",
"dua", "tiga", "empat", "lima",
"enam", "tujuh", "delapan",
"sembilan")KeKata = TrjKata(Nomor)End Function'Mulai penulisan Fungsi