Flere "hvis'er" end 7

Jeg har en gang for længe siden stillet spørgsmålet, fik et svar. Jeg kan dog ikke - det ligger lang tid tilbage - huske om jeg fik det til at virke.
http://www.eksperten.dk/spm/293234

Jeg ville lave en funktion som:

'---
Function HvisMereEnd7(x As Variant) As Variant
Select Case x
      Case 1: HvisMereEnd7 = "Hurra 1"
      Case 2: HvisMereEnd7 = "Hurra 2"
      Case 3: HvisMereEnd7 = "Hurra 3"
      Case 4 To 7: HvisMereEnd7 = "Hurra 4 til 7 "
      Case Is > 7: HvisMereEnd7 = "Hurra mere end 7"
      ' osv.
End Select
End Function
'---

afhængig af hvad der skal testes (heltal - decimaltal - tekst) vælges varablernes type.