Omskrivning af makro

Omskriv Nedestående så der bruges "Select Case og >" i stedet for "End... If og <="

Jeg kan ikke helt overskue det vil i mikke nok hjælpe mig...

På forhånd tak!!!



Sub Prisbånd()
'
' Prisbånd Macro
' Macro created 05-03-03 by EUC Syd
'
Dim Antal, Salgspris, Normalpris, Tekst
Normalpris = InputBox("Indtast den vejl. pris")
Antal = InputBox("Indtast Antal")
If Antal <= 99 Then            ' 2% rabat
Salgspris = Normalpris * 0.98
ElseIf Antafl <= 999 Then      ' 3% rabat
Salgspris = Normalpris * 0.97
ElseIf Antal <= 9999 Then      ' 5% rabat
Salgspris = Normalpris * 0.95
Else                            ' 10% rabat
Salgspris = Normalpris * 0.9
End If
Tekst = "Normalprisen er kr.: " & Normalpris & vbCrLf _
& "Stykprisen ved " & Antal & " stk. er kr.: " & Salgspris
MsgBox Tekst, , "Prisoplysning"

End Sub