Imports System, Microsoft.VisualBasic
Dim numberOfCopies As Integer
Dim pricePerCopy As Single
Console.WriteLine("Please Enter The Number: ")
numberOfCopies = Console.ReadLine()
If numberOfCopies < 500 And numberOfCopies > 0 Then
ElseIf numberOfCopies >= 500 And numberOfCopies <= 749 Then
ElseIf numberOfCopies >= 750 And numberOfCopies <= 999 Then
ElseIf numberOfCopies >= 1000 And numberOfCopies <= 1100 Then
total = (numberOfCopies) * (pricePerCopy)
Console.WriteLine("The Total Is " & FormatCurrency(total))