Visual Basic - Select Case

Tengo el siguiente código:
Private Sub cmdOK_Click()
Select Case txtCODE.Text
Case 0
shpFIG.Shape = 0
Case 1
shpFIG.Shape = 1
Case 2
shpFIG.Shape = 2
End Select
End Sub
Pero el problema es que el control shpFIG no hace nada. ¿Qué está mal o qué puedo hacer al respecto?
Muchas gracias.

Me parece muy extraño, pues cree un formulario con los controles que nombras y pegue tu codigo en el. Funciono perfecto.

Sin embargo agrega Val a ver que pasa

Private Sub CmdOK_Click()
Select Case Val(txtCODE.Text)
Case 0
shpFIG.Shape = 0
Case 1
shpFIG.Shape = 1
Case 2
shpFIG.Shape = 2
End Select
End Sub

Saludos

he probado el código y funciona, lo que hace falta es poner algún número (0, 1 o 2) en la caja de textos (txtcode) y luego pulsas el botón (cmdok) y te pintará un cuadrado, rectángulo o elipse o círculo

saludos