Dim i As Byte
Dim Anzahl As Integer
Dim Geld As Double
Dim Note(14) As Long
 
Note(0) = 50000
Note(1) = 20000
Note(2) = 10000
Note(3) = 5000
Note(4) = 2000
Note(5) = 1000
Note(6) = 500
Note(7) = 200
Note(8) = 100
Note(9) = 50
Note(10) = 20
Note(11) = 10
Note(12) = 5
Note(13) = 2
Note(14) = 1
 
Geld = Text1.Text * 100
Text2.Text = ""
 
For i = 0 To 14
 Anzahl = Geld \ Note(i)
 Text2.Text = Text2.Text & Anzahl & " - "
 Geld = Geld Mod Note(i)
Next i