Fungsi terbilang gunain vb

buat class module dahulu ....

isikan file berikut

---

Option Explicit

Dim Once(0 To 20) As String
Dim Tenths(9) As String
Dim Num As String
Dim n(9) As Integer
Dim i As Integer
Dim meValue As String

Private Sub Class_Initialize()
Once(0) = ""
Once(1) = " Satu"
Once(2) = " Dua"
Once(3) = " Tiga"
Once(4) = " Empat"
Once(5) = " Lima"
Once(6) = " Enam"
Once(7) = " Tujuh"
Once( = " Delapan"
Once(9) = " Sembilan"
Once(10) = " Sepuluh"
Once(11) = " Sebelas"
Once(12) = " Dua Belas"
Once(13) = " Tiga Belas"
Once(14) = " Empat Belas"
Once(15) = " Lima Belas"
Once(16) = " Enam Belas"
Once(17) = " Tujuh Belas"
Once(18) = " Delapan Belas"
Once(19) = " Sembilan Belas"

Tenths(2) = " Dua Puluh"
Tenths(3) = " Tiga Puluh"
Tenths(4) = " Empat Puluh"
Tenths(5) = " Lima Puluh"
Tenths(6) = " Enam Puluh"
Tenths(7) = " Tujuh Puluh"
Tenths( = " Delapan Puluh"
Tenths(9) = " Sembilan Puluh"
End Sub

Public Function NumToText(Num As String) As String
meValue = ""
Num = Format(Num, "000,000,000.00")
n(1) = Mid(Num, 1, 1)
n(2) = Mid(Num, 2, 1)
n(3) = Mid(Num, 3, 1)
n(4) = Mid(Num, 5, 1)
n(5) = Mid(Num, 6, 1)
n(6) = Mid(Num, 7, 1)
n(7) = Mid(Num, 9, 1)
n( = Mid(Num, 10, 1)
n(9) = Mid(Num, 11, 1)

'*** MILLIONS
i = n(1) & n(2) & n(3)
If i > 0 Then
If n(1) > 0 Then
meValue = Once(n(1)) & " Ratus"
End If
i = n(2) & n(3)
If i >= 20 Then
meValue = meValue & Tenths(n(2)) & Once(n(3)) & " Juta"
Else
meValue = meValue & Once(i) & " Juta"
End If
End If

'*** THOUSANDS
i = n(4) & n(5) & n(6)
If i > 0 Then
If n(4) > 0 Then
meValue = meValue & Once(n(4)) & " Ratus"
End If
i = n(5) & n(6)
If i >= 20 Then
meValue = meValue & Tenths(n(5)) & Once(n(6)) & " Ribu"
Else
meValue = meValue & Once(i) & " Ribu"
End If
End If

'*** HUNDREDS
i = n(7) & n( & n(9)
If i > 0 Then
If n(7) > 0 Then
meValue = meValue & Once(n(7)) & " Ratus"
End If
i = n( & n(9)
If i >= 20 Then
meValue = meValue & Tenths(n() & Once(n(9))
Else
meValue = meValue & Once(i)
End If
End If

meValue = Replace(meValue, "Satu Ribu", "Seribu")
meValue = Replace(meValue, "Satu Ratus", "Seratus")
meValue = Trim(meValue)
NumToText = meValue
End Function

---

buat form lalu isikan

Private Sub cmdClose_Click()
End
End Sub

Private Sub cmdTerbilang_Click()
Dim obj As New clsTerbilang
txtTerbilang.Text = obj.NumToText(txtNumber.Text)
End Sub

Private Sub txtNumber_KeyPress(KeyAscii As Integer)
If ((KeyAscii < 48 And KeyAscii <> Or KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub



untuk lebih jelasnya bisa di donlot di:
http://www.4shared.com/file/109865704/e9a4e3/terbilang.html