*کمک* محاسبه ی 20 درصد *کمک*

من می خوام 20درصد از یک مبلغ رو کم کنه و نشون بده اما همش صفر نمایش میده چکار باید بکنم کجارو اشتباه کردم ؟؟

کد:

---

Dim f As Double = 800
Private Sub TextBox3_TextChanged
        f = Val(TextBox1.Text)
        f -= (f / 100 * 20)
        Label14.Text = f
    End Sub
End Classf

---

راستش من زیاد Vb وارد نیستم ولی فکر کنم شما توی این خط اشتباه کردید باید اینجوری باشه :

نقل قول:

---

f = (f / 100) * 20

---

یا :

نقل قول:

---

f = (f *20 ) / 100

---

f=(f*20)/100

f = (f * 80)/100