elenco = Split(UtenteLoggato.Fields.Item("Interessi").Value ,",")
prima elimina lo spazio ", "

cmq
un pò illogico l'uso del select case fatto in questo modo


elenco infatti conterrà gli indice dell'array ovvero:

elenco(0) = 11
elenco(1) = 12
elenco(1) = 13