Are you getting a specific error when you run your code? Which line is highlighted and what is the error?
I think you may need parens after the class name when instantiating a new object. (It's been quite a while since I switched from VB6 to VB.Net, so I'm fuzzy on how the "old way" worked.)
Like this: Set arAnimal(i) = New clsAnimalRef( )
Also -- make sure of the scope of your Class ... is it a valid class within that function?
... Dicey Curves, Space Mission, Jump Gate, Gem Raider, DareBase, Castle Danger, Keeps & Moats Chess