Membuat Fungsi Terbilang pada VB6.0

Fungsi dibawah ini digunakan untuk menampilkan tulisan terbilang dari suatu angka. Contoh jika angkanya adalah 100, maka akan muncul teks "seratus". Kelemahannya hanya bisa menjadi angka jutaan saja, untuk itu silahkan Anda kembangkan sendiri sesuai kebutuhan.

Public Function Terbilang(ByVal x As Long) As String
Dim abil As Variant abil = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas")

If x <>
Terbilang = " " & abil(x)
ElseIf x <>
Terbilang = Terbilang(x - 10) & " belas"
ElseIf x <>
Terbilang = Terbilang(x \ 10) & " puluh" & Terbilang(x Mod 10)
ElseIf x <>
Terbilang = " seratus" & Terbilang(x - 100)
ElseIf x <>
Terbilang = Terbilang(x \ 100) & " ratus" & Terbilang(x Mod 100)
ElseIf x <>
Terbilang = " seribu" & Terbilang(x - 1000)
ElseIf x <>
Terbilang = Terbilang(x \ 1000) & " ribu" & Terbilang(x Mod 1000)
ElseIf x <>
Terbilang = Terbilang(x \ 1000000) & " juta" & Terbilang(x Mod 1000000)
End If
End Function

Contoh penggunaan:
Private Sub Command1_Click()
Text2.Text = Terbilang(Val(Text1.Text))
End Sub