Banknot Hesaplama

Girilen para miktarındaki banknotları bulup ekrana yazdıran program.
Eklenecek nesneler: text1, command1
Private Sub Command1_Click()
Dim i, j
Cls
i = Val(Text1.Text)
j = Int(i / 100)
Print j; " Tane 100 YTL Vardır "
i = i Mod 100
j = Int(i / 50)
Print j; " Tane 50 YTL Vardır "
i = i Mod 50
j = Int(i / 20)
Print j; " Tane 20 YTL Vardır "
i = i Mod 20
j = Int(i / 10)
Print j; " Tane 10 YTL Vardır "
i = i Mod 10
j = Int(i / 5)
Print j; " Tane 5 YTL Vardır "
i = i Mod 5
j = Int(i / 1)
Print j; " Tane 1 YTL Vardır "
i = i Mod 1
End Sub

Private Sub Form_Load()
Text1.ToolTipText = "Para Miktarını Giriniz"
End Sub