Hola amigo:
Yo creo que si te debe funcionar, pero el código podría quedarte un poco más claro usando Select Case.... End Select en lugar de If... ElseIf... Else... End If
Espero te ayude, un saludo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>