Private Sub Command1_Click() Dim a, tutar, iade As Integer a = InputBox("tutarınızı girin") If a > 3000 Then iade = 3000 * 0.08 tutar = a - 3000 iade = iade + (tutar * 0.07) Else iade = a * 0.08 End If MsgBox iade End Sub