Private Sub Command1_Click() s = Val(txts.Text) b = Val(txtb.Text) s = s * b / 100 lblR.Caption = Str(s) End Sub