Variablennamen mit Werten aus array kombinieren

Sub test2()
Dim i As Integer
Dim Wert_A As Integer
Dim Wert_B As Integer
Dim Wert_C As Integer
Test_Feld = Array("A", "B", "C")
For i = 2 To 10
Select Case Cells(i, 1).Value
For k = 0 To UBound(Test_Feld)
Case Test_Feld(k)
Wert_Test_Feld(k) = Wert_Test_Feld(k) + Cells(i, 2).Value
Next k
Next i
End Sub