If InStr(frei, "|") Then
   g = Split(frei, "|")
   For i = 0 To UBound(g)
   For Each F In Forms
       For Each C In F
        If InStr(LCase(g(i)), LCase(F.NAME) & "." & LCase(C.NAME)) > 0 Then
            C.Visible = True
        End If
    Next
Next