Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim itemid, quantity As Integer
Dim unitprice, taxamount, subtotal, totalprice As Single
Const salestax = 0.085

itemid = InputBox(" Please Enter the Item ID")
quantity = InputBox(" Please Enter the Quantity")
unitprice = InputBox(" Please Enter the Unit Price")

subtotal = quantity * unitprice
taxamount = subtotal * salestax
totalprice = subtotal + taxamount


MsgBox("The Item ID is " & itemid)
MsgBox("The quantity is " & quantity)
MsgBox("The Unit Price is " & unitprice)
MsgBox("The Sub Total is " & subtotal)
MsgBox("The Tax Amount is " & taxamount)
MsgBox("The Total Price is " & totalprice)


End Sub
End Class