ciao.
La cosa più semplice è utilizzare un dizionario avente come chiave il tuo valore stringa e come valore un oggetto double in cui fai la somma.
Ti dichiari un dizionario:
poi cicli il tuo array e all'interno del ciclo ci metti questo:
If Not gruppoDic.ContainsKey("aaaa") Then
gruppoDic.Add("aaaa", 0.0)
Else
gruppoDic("aaaa") = gruppoDic("aaaa") + 0.0
End If
dove al posto di "aaaa" ci devi passare il valore stringa dell'array che stai ciclando e al posto di 0.0 ci devi passare il valore double dell'array
Nota: la chiave del dizionario ("aaaa") è case sensitive. Quindi se per te Pippo, PIPPO, pippo sono la stessa cosa allora quando passi la chiave facci un bel .ToUpper() altrimenti se sono entità diverse lascialo così.
al termine del cliclo se vuoi vedere i risultati puoi fare:
Dim k As String
Dim msg As String = ""
For Each k In gruppoDic.Keys
msg = k & ": " & gruppoDic(k).ToString() & vbCrLf
Next
MsgBox(msg)
Cristian Barca