If InStr(frei, "|") > 0 Then
    g = Split(frei, "|")
    For i = 0 To UBound(g)
      Lst = Split(g(i), ".")
      For Each f In Forms
        If LCase$(f.Name) = LCase$(Lst(0)) Then
          f.Controls(Lst(1)).Visible = True
          Exit For
        End If
      Next f
    Next i
  End If

Gruss,

Zardoz