membuat fungsi terbilang rupiah

trik untuk membuat fungsi yang mengubah angka pada text menjadi fungsi terbilang. misalnya kita mengetikkan angka "10000" maka hasil konversinya akan menjadi "sepuluh ribu"
bagaimana cara membuatnya???

langkah-langkahnya sebagai berikut :
1. buka project baru dengan sebuah form
2. masukkan sebuah text box sebagai input data
3. masukkan sebuah label sebagai tempat menampung hasil akhir berupa fungsi terbilang
4. copykan script berikut pada form

Function Num2Word(ByVal n As Currency) As String 'max 2.147.483.647
Dim satuan As Variant

satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case n 'keadaan
Case 0 To 11
Num2Word = " " + satuan(Fix(n))
Case 12 To 19
Num2Word = Num2Word(n Mod 10) + " Belas"
Case 20 To 99
Num2Word = Num2Word(Fix(n / 10)) + " Puluh" + Num2Word(n Mod 10)
Case 100 To 199
Num2Word = " Seratus" + Num2Word(n - 100)
Case 200 To 999
Num2Word = Num2Word(Fix(n / 100)) + " Ratus" + Num2Word(n Mod 100)
Case 1000 To 1999
Num2Word = " Seribu" + Num2Word(n - 1000)
Case 2000 To 999999
Num2Word = Num2Word(Fix(n / 1000)) + " Ribu" + Num2Word(n Mod 1000)
Case 1000000 To 999999999
Num2Word = Num2Word(Fix(n / 1000000)) + " Juta" + Num2Word(n Mod 1000000)
Case Else
Num2Word = Num2Word(Fix(n / 1000000000)) + " Milyar" + Num2Word(n Mod 1000000000)
End Select
End Function

Private Sub Text1_Change()
On Error Resume Next

If Text1 <> "" Then
Label1 = Num2Word(Text1) + " Rupiah"
Else
Label1 = ""
End If
End Sub

5. klik run atau F5
6. berdoa supaya tidak eror heheheheheh

ini contoh program yang tampilan snapshootnya diatas download contoh konversi huruf