Taglio la testa al toro e vediamo se è quello che ti serve. Uso le Liste che con un minimo di pratica sono più gestibili delle matrici:
codice:
Dim var As String
Dim Chiavi As New List(Of String), Contenuto As New List(Of String)
Chiavi.Add("nomi")
Chiavi.Add("animali")
Chiavi.Add("fumetti")
Contenuto.Add("Mario, Giorgio,Franco,......")
Contenuto.Add("Cane,Gatto,Cavallo,......")
Contenuto.Add("Pippo,Pluto,Paperino,......")
'andata
var = "animali"
For x As Integer = 0 To Chiavi.Count - 1
If Chiavi(x).Contains(var) Then
var = Contenuto(x)
MessageBox.Show(var)
Exit For 'se risposta univoca
End If
Next
'ritorno
var = "Paperino"
For x As Integer = 0 To Contenuto.Count - 1
If Contenuto(x).Contains(var) Then
var = Chiavi(x)
MessageBox.Show(var)
Exit For 'se risposta univoca
End If
Next
Sappimi dire se ho capito il problema.