Dim X As String, N1 As String, Idx As Long, Pos1 As Long
  Dim C1 As Control
 
  X = "shapeHaus(99)" ' Controlname als String
  Pos1 = InStr(1, X, "(")
  N1 = Left$(X, Pos1 - 1) ' Controlname holen
  Idx = Val(Mid$(X, Pos1 + 1)) ' Index holen
 
  ' auf Control zugreifen
  Me.Controls(N1).Item(Idx).FillColor = vbBlue
 
  ' oder so:
  Set C1 = Me.Controls(N1).Item(Idx)
  C1.FillColor = vbYellow

Gruss,

Zardoz