Private Sub Command1_Click() Dim price As Double If MCText = "90号" Then price = 3 * CLng(MTText) If MCText = "95号" Then price = 45 * CLng(MTText) If MCText = "100号" Then price = 6 * CLng(MTText) MTText = priceEnd SubPrivate Sub Form_Load() MCAddItem ("90号") MCAddItem ("95号") MCAddItem ("100号") MCText = "90号" MTText = 0 MTText = ""End Sub