Private Sub Command1_Click() Dim a, sonuc As Integer a = InputBox("ÜCRETİ GİRİNİZ") If a > 0 Then sonuc = a * 1.18 MsgBox sonuc End If End Sub