Non so cosa potrebbe essere, ma metti così,forse funziona:

If Cognome(k).ToString() = Consonanti(i).ToString() Then