me ne sono accorto solo ora:
"End Select" e non "End Case"