Sub Page_Load()
Dim intEarn As Integer
Dim intTax As Integer
Dim decTotal As Decimal
intEarn = 150
intTax = 23
decTotal = intEarn - ((intEarn/100)*intTax)
Display1.Text = decTotal
End Sub
Declaring Variables
Your total earnings after tax are $