bueno para separar las respuestas separadas por ; o , se usa SPLIT
Cadena="HOLA1;Hola2;Hola3"
Arreglo=Split(cadena,";")
o
Arreglo=Split(cadena,",")
ahora para verificar que sean diferentes
For each elemento in Arreglo
If elemento<>temporal Then
response.Write "Son diferentes"
End If
Temporal=elemento
Next
algo asi debe jalar
saludos