Ma da dove l'hai pescata quella sintassi per la Select Case?

http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

Ti consiglio l'uso di If ... EleseIf ... Else ... EndIf