If InStr(frei, "|") Then ' frei heißt der string wo die buttons drin stehen
   c = Split(frei, "|")
   For i = 0 To UBound(c)
      svalue = Trim(c(i))
      Dim FreiButton As Object
      Set FreiButton = svalue
      FreiButton.Visible = True
      Set FreiButton = Nothing
   Next i
End If