[معاند الحظ]

انت تريد حساب المتبقي من القيمة المخزنة في تكست 1 والتي هي 50000 بعد خصم 50% منه 
اذن :

الباقي بعد الخصم :

تكست 1 / 100= 50000/100 = 500
ثم 
نضرب الناتج  وهو 500 بقيمة الخصم والتي هي 50% ليكون الحاصل = 25000

كود :

 Dim amount As Integer = 50000
        Dim DiscountPercent As Integer = 50

        Dim result As Integer = (amount / 100) * DiscountPercent

        MsgBox(result)