Visual Basic 6 - case

Ciao ragazzi ho un piccolo problema :
perche' la mia X non mi da nessun valore ?
Ditemi dove go sbagliato , a me sembra che la sintassi sia giusta.


Select Case varModelloFono
'estrapolo i caratteri per cercarli nel catalogo
‘
Case Is <> "FSJ-" And varModelloFono <> "FKP-" And varModelloFono <> "FKC-"
X = Left(varModelloFono, 2)
‘
Case Is = "FSJ-"
X = "FS"
‘
Case Is = "FKP-"
X = "FP"
‘
Case Is = "FKC-"
X = "FC"
‘
End Select
'
'Dim cerca As String
'cerca = X & y & z
'Unisce i nomi per ricavare il nome intero del 'catalogo
‘y = larghezza
‘z= profondita’

Prova a modificare quello tuo in questo:



Select Case varModelloFono
'estrapolo i caratteri per cercarli nel catalogo

Case (varModelloFono <> "FSJ-" And (varModelloFono <> "FKP-" And (varModelloFono <> "FKC-"
X = Left(varModelloFono, 2)

Case Is = "FSJ-"
X = "FS"

Case Is = "FKP-"
X = "FP"

Case Is = "FKC-"
X = "FC"

End Select


Ciao Michele