Module Module1
Sub Main()
Dim price As Double = 1499, new_price As Double = 1299
Dim percentage As Double = (Math.Abs(price - new_price) / price) * 100
Console.WriteLine("Price decrease by {0}%", percentage)
End Sub
End Module
' run:
'
' Price decrease by 13.3422281521014%