My program needs to charge $0.30 for 0-499 copies, $0.28 for 500-749 copies, $0.27 for 750-999 copies, $0.25 for 1000 or more copies
But it reads $0.28 for everything 500 and over. The <> thing confuse me can anyone help me out;(

Private Sub cmdcalculate_Click()
Dim intcopy As Integer
Dim curtotal As Currency
Dim curpercopy As Currency
intcopy = txtcopy.Text
If intcopy <= 499 Then
intpercopy = 0.3
ElseIf intcopy >= 500 < 750 Then
intpercopy = 0.28
ElseIf intcopy >= 750 < 1000 Then
intpercopy = 0.27
ElseIf intcopy >= 1000 Then
intpercopy = 0.25
End If
lblpercopy.Caption = intpercopy
lbltotalprice.Caption = intpercopy * intcopy
End Sub