Konversi angka ke teks biasa digunakan pada Kwitansi, pada Kwitansi manual ada kemungkinan terjadi kesalahan saat menulis teks sebagai konversi dari angka. Fungsi Konversi Angka ke Teks digunakan untuk menghindari kesalahan penulisan teks hasil konversi, berikut kode programnya :

Kode prgram di Module1.Vb

Module Module1

    Public Function Terbilang(ByVal X As Long) As String

        Dim sWords() As String = New String() {"", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}

        If X < 12 Then

            Terbilang = " " & sWords(X)

        ElseIf X < 20 Then

            Terbilang = Terbilang(X - 10) & " belas"

        ElseIf X < 100 Then

            Terbilang = Terbilang(X 10) & " puluh" & Terbilang(X Mod 10)

        ElseIf X < 200 Then

            Terbilang = " seratus" & Terbilang(X - 100)

        ElseIf X < 1000 Then

            Terbilang = Terbilang(X 100) & " ratus" & Terbilang(X Mod 100)

        ElseIf X < 2000 Then

            Terbilang = " seribu" & Terbilang(X - 1000)

        ElseIf X < 1000000 Then

            Terbilang = Terbilang(X 1000) & " ribu" & Terbilang(X Mod 1000)

        ElseIf X < 1000000000 Then

            Terbilang = Terbilang(X 1000000) & " juta" & Terbilang(X Mod 1000000)

        ElseIf X < 1000000000000 Then

            Terbilang = Terbilang(X 1000000000) & " milyar" & Terbilang(X Mod 1000000000)

        Else

            Terbilang = ""

        End If

    End Function

End Module

Kode program di Form1.Vb

Public Class Form1

    Private Sub BTTERBILANG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTTERBILANG.Click

        LBLTERBILANG.Text = Terbilang(TXTANGKA.Text)

    End Sub

End Class