Private Sub RegistryRead()
        Dim CategoryKey As RegistryKey
        Dim Categories As TextBox
 
        CategoryKey = Registry.CurrentUser.OpenSubKey( _
          "Software\Microsoft\Office\11.0\Outlook\Categories")
        Categories = CategoryKey.GetValue("MasterList")
        CategoryKey.Close()
    End Sub