For x = 1 to 52
  Select Case wert
    Case 1
      Thema_x = 222  --> und hier soll meine Variable Thema_1 gefüllt _
        werden; wobei x ja für den Zähler steht
  End Select
Next x

Dim Themen(51) ' Array mit 52 Elementen (Gezählt wird von 0-51)
 
For x = 0 to UBound(Themen) ' Mit UBound bekomme ich die obere Grenze des 
' Arrays, in diesem Fall 51
  Select Case wert
    Case 1
      Themen(x) = 222
  End Select
Next x