"Navn" på enum

Jeg har en enum, hvor man jo referer til numrene, dvs.

public enum AniTypes
  chicken=0
  dog=1
  cat=2
  mouse=3
end enum

Nu har jeg det problem, at jeg har en sub med værdien (et tal), og hvor brugeren indtaster FUserInput "uCat", "uDog", "uMouse" etc., dvs. et u foran dyrenavnet - lad nu vær at spørge hvorfor - det er et forsimplet eks. :-)

public sub CorrectAnimal(Animal as AniTypes, FUserInput as string)
if Animal=mid(FUserInput,2) then
  msgbox "Rigtigt"
else
  msgbox "Forkert"
end if
end function

Problemet er, at jeg sammenligner lidt æbler og bananer. Animal indeholder et tal (0-3) og FUserInput indeholder en streng. Kan jeg ikke lave enum'en om til tekst-værdien ?

Selvfølgelig kan jeg lave en select case, men der er ret mange så det bliver temmelig voldsomt at vedligeholde.

Mvh
Martin