Membuat modul terbilang pada form

1.       Buat modulTerbilang copy paste dari module tersebut: ­­­­­­­­­

module terbilang

Public Function terbilang(ByVal MyNumber, ByVal vmatauang)
Dim MataUang As String, cMataUang As String
Dim Rupiah, sen, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Dim a As Long

cMataUang = vmatauang
If cMataUang = “IDR” Then
MataUang = ” rupiah”
ElseIf cMataUang = “USD” Then
MataUang = ” dolar”
ElseIf cMataUang = “JPY” Then
MataUang = ” yen”
ElseIf cMataUang = “SGD” Then
MataUang = ” dolar singapura”
ElseIf cMataUang = “GBP” Then
MataUang = ” poundsterling”
ElseIf cMataUang = “EUR” Then
MataUang = ” euro”
Else
MataUang = ” “
End If