次のような配列があるとします

Type T
name As String
Syakkin As Long
End Type

Dim Aiful() as T

' 適当に随時Redim
Aiful(0).name = "Sen Masao"
Aiful(0).Syakkin = 500
Aiful(1).name = "Haga Kenji"
Aiful(1).Syakkin = 1000
Aiful(2).name = "Sen Masao"
Aiful(2).Syakkin = 300

これをnameで集計してRedimしたいのですがどうすればいいでしょうか？

' 代入するんじゃなくて上から下の結果を出したい
Aiful(0).name = "Sen Masao"
Aiful(0).Syakkin = 800
Aiful(1).name = "Haga Kenji"
Aiful(1).Syakkin = 1000

という風に配列の要素数を2(0から1)にして合計したいんです。
何か知恵を貸してください。
#配列の順番はnameでソートされているとは限らず、いくつ要素があるかもわかりません