我是一個剛學vb的中年人..
今天老師給了一題,要我們做出一個可以輸入任意金額而兌換不同面值的錢,最後要得出剩餘金額

以下是我寫的..
dim unit , disable as integer
Amount.text = Amount.text
AM1.text = "0"   '想兌換1元的數量
AM5.text = "0"
AM10.text = "0"
AM20.text = "0"
AM50.text = "0"   '想兌換50元的數量
Rturn = Amount.text- ((AM1.text*1) + (AM5.text*5) + (AM10.text*10) + (AM20.text*20) + (AM50.text*50))
disable = false 
 if AM1.text check1.checked disable = True
 if AM5.text check1.checked disable = True
 if AM10.text check1.checked disable = True
 if AM20.text check1.checked disable = True
 if AM50.text check1.checked disable = True
unit = AM1.text 
unit = AM5.text 
unit = AM10.text 
unit = AM20.text 
unit = AM50.text   
當我去執行它,它就顯示黃色一行在 AM10.TEXT 那一行裹..說字串不能轉換成"Integer"
還有就是,那5個checkbutton打不打勾都可以用,要怎麼解決.
我已經搞了7個小時了,還是搞不懂!!
請朋友們幫幫忙,順便讓我學習一下