Dim MeinKey As RegistryKey
        Dim i As Integer
        MeinKey = Registry.ClassesRoot.OpenSubKey( _
           "Local Settings\Software\Microsoft\Windows\Shell\MuiCache")
        ' Schlüssel dieses Zweigs ermitteln 
        Dim ValueNames() As String
        ValueNames = MeinKey.GetValueNames()
        ' Namen der Schlüssel ausgeben 
        Debug.WriteLine("SCHLÜSSEL:")
        For i = LBound(ValueNames) To UBound(ValueNames) - 1
            If InStr(ValueNames(i), "aclt") Or InStr(ValueNames(i), "acad") Then
                MsgBox(ValueNames(i))
            End If
 
        Next