Imports System, Microsoft.VisualBasic
Dim pricePerCopy As Single
Console.Write("Please enter the number of copies: ")
numCopies = Console.ReadLine()
If numCopies < 500 And numCopies > 0 Then
ElseIf numCopies >= 500 And numCopies < 750 Then
ElseIf numCopies >= 750 And numCopies <1000 Then
ElseIf numCopies >= 1000 Then
Console.WriteLine("Invalid number of copies")
totalPrice = numCopies * pricePerCopy
Console.WriteLine("Price per Copy: " & FormatCurrency(pricePerCopy))
Console.WriteLine("Total Price: " & FormatCurrency(totalPrice))