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