lg bikin function receh nih..
mirip2 function terbilang gitu logikanya..serupa tapi tak sama..
hasil yang pengen ditampilin :
Untuk : 139.716
jumlah 100.000 yang dibutuhkan 1
jumlah 50.000 yang dibutuhkan 0
jumlah 20.000 yang dibutuhkan 1
jumlah 10.000 yang dibutuhkan 1
jumlah 5000 yang dibutuhkan 1
jumlah 1000 yang dibutuhkan 4
jumlah 500 yang dibutuhkan 1
jumlah 100 yang dibutuhkan 2

Maka, dibuatlah fungsi sesuai keinginan penanya:

Fungsi:

Function Pecahan(Angka As Long, Index As Integer) As Integer
Dim Angka2 As Long
Dim NominalUang(1 To 10) As Integer

Angka2 = Angka

If Angka2 >= 100000 Then
NominalUang(1) = Angka2 \ 100000
Angka2 = Angka2 Mod 100000
End If

If Angka2 >= 50000 Then
NominalUang(2) = Angka2 \ 50000
Angka2 = Angka2 Mod 50000
End If

If Angka2 >= 20000 Then
NominalUang(3) = Angka2 \ 20000
Angka2 = Angka2 Mod 20000
End If

If Angka2 >= 10000 Then
NominalUang(4) = Angka2 \ 10000
Angka2 = Angka Mod 10000
End If

If Angka2 >= 5000 Then
NominalUang(5) = Angka2 \ 5000
Angka2 = Angka2 Mod 5000
End If

If Angka2 >= 1000 Then
NominalUang(6) = Angka2 \ 1000
Angka2 = Angka2 Mod 1000
End If

If Angka2 >= 500 Then
NominalUang(7) = Angka2 \ 500
Angka2 = Angka2 Mod 500
End If

If Angka2 >= 200 Then
NominalUang(8) = Angka2 \ 200
Angka2 = Angka2 Mod 200
End If

If Angka2 >= 100 Then
NominalUang(9) = Angka2 \ 100
Angka2 = Angka2 Mod 100
End If

If Angka2 >= 50 Then
NominalUang(10) = Angka2 \ 50
Angka2 = Angka2 Mod 100
End If
Pecahan = NominalUang(Index)
End Function

Contoh pengujian:
Tambahkan sebuah TextBox pada form, namai dengan txtNominal. Tambahkan pula sebuah CommandButton, ketik kode di bawah ini:

Private Sub Command1_Click()

Dim i As Integer

MsgBox Pecahan(CLng(Me.txtNominal), 1) & " SeratusRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 2) & " LimaPuluhRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 3) & " DuaPuluhRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 4) & " SepuluhRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 5) & " LimaRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 6) & " Seribuan"
MsgBox Pecahan(CLng(Me.txtNominal), 7) & " LimaRatusan"
MsgBox Pecahan(CLng(Me.txtNominal), 8) & " DuaRatusan"
MsgBox Pecahan(CLng(Me.txtNominal), 9) & " Seratusan"
MsgBox Pecahan(CLng(Me.txtNominal), 10) & " LimaPuluhan"
End Sub
Sumber