Visual Basic : KDV hesap

Private Sub Command1_Click()
Dim fiyat, hacim, kdv, indirim, netfiyat As Long
fiyat = Val(InputBox("Otomobil Çıplak Fiyatını Giriniz", "FİYAT GİRİŞ"))
hacim = Val(InputBox("Motor Hacimini Giriniz", "MOTOR HACMİ"))
If hacim > 1600 Then
    kdv = fiyat * 25 / 100
    indirim = fiyat * 10 / 100
Else
    kdv = fiyat * 10 / 100
    indirim = fiyat * 8 / 100
End If
    netfiyat = fiyat + kdv - indirim
    MsgBox "fiyat: " & fiyat & "  kdv: " & kdv & "  İndirim: " & indirim & "  NetFiyat: " & netfiyat, vbInformation, "SONUÇ"
    
End Sub