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