Function Angka ke Huruf

dalam Excel dapat kita buat function sendiri yang berfungsi sesuai dengan keinginan kita,
wow... kirain default...
kali ini membuat fungsi untuk mengubah tulisan angka menjadi huruf....
hem... canggih juga si macro...

untuk yang satuan neh.....code nya...
1. masuk ke visual basic dari ribbon developer
2. pilih menu insert -> module
3. tulis code sederhana ini

 Function ubah(Digit)
    Select Case Val(Digit)
        Case 1: ubah = "satu "
        Case 2: ubah = "dua "
        Case 3: ubah = "tiga "
        Case 4: ubah = "empat "
        Case 5: ubah = "lima "
        Case 6: ubah = "enam "
        Case 7: ubah = "tujuh "
        Case 8: ubah = "delapan "
        Case 9: ubah = "sembilan "
        Case Else: ubah = ""
    End Select
End Function

dah hasil nya... kembali ke jendela excel...
tuliskan =ubah(9) dan apa yang terjadi... buktikan...