Fungsi Pembilang VB.net

Sedang mencari fungsi pembilang untuk visual basic .net dalam bahasa Indonesia? silahkan copas script fungsi pembilang dibawah ini

 Public Function Terbilang(ByVal nilai As Long) As String

        Dim bilangan As String() = {"", "Satu", "Dua", "Tiga", "Empat", "Lima", _

        "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas"}

        If nilai < 12 Then

            Return " " & bilangan(nilai)

        ElseIf nilai < 20 Then

            Return Terbilang(nilai - 10) & " Belas"

        ElseIf nilai < 100 Then

            Return (Terbilang(CInt((nilai \ 10))) & " Puluh") + Terbilang(nilai Mod 10)

        ElseIf nilai < 200 Then

            Return " Seratus" & Terbilang(nilai - 100)

        ElseIf nilai < 1000 Then

            Return (Terbilang(CInt((nilai \ 100))) & " Ratus") + Terbilang(nilai Mod 100)

        ElseIf nilai < 2000 Then

            Return " Seribu" & Terbilang(nilai - 1000)

        ElseIf nilai < 1000000 Then

            Return (Terbilang(CInt((nilai \ 1000))) & " Ribu") + Terbilang(nilai Mod 1000)

        ElseIf nilai < 1000000000 Then

            Return (Terbilang(CInt((nilai \ 1000000))) & " Juta") + Terbilang(nilai Mod 1000000)

        ElseIf nilai < 1000000000000 Then

            Return (Terbilang(CInt((nilai \ 1000000000))) & " Milyar") + Terbilang(nilai Mod 1000000000)

        ElseIf nilai < 1000000000000000 Then

            Return (Terbilang(CInt((nilai \ 1000000000000))) & " Trilyun") + Terbilang(nilai Mod 1000000000000)

        Else

            Return ""

        End If

    End Function

Untuk menggunakannya bagaimana?  tinggal panggil terbilang(textbox yang dirubah) + "Rupiah" semoga bermanfaat next time tak kasih contoh detail aplikasi pembuat kwitansi semoga bermanfaat.