Согласованная работа двух списков - VBA

[inkognitik]

Некоторое издательство сотрудничает с определенными магазинами в разных городах. Необходимо обеспечить согласованную работу двух списков. В одном из списков содержится перечень городов (например, Москва, Санкт-Петербург). При выборе элемента из этого списка во втором столбце должен отображаться перечень магазинов: Москва: «Библеос-Глобус», «Дом книги», «Кнорус», «Мир»;
Санкт-Петербург: «Дом книги», «Техническая книга», «Прометей».

КОД

Dim City As Variant
Dim Shop(2) As Variant
Private Sub UserForm_Initialize()
City = Array(«Москва», «Санкт-Петербург»)
Shop(0) = Array(«Библеос-Глобус», «Дом книги», «Кнорус», «Мир»)
Shop(1) = Array(«Дом книги», «Техническая книга», «Прометей»)
ListBox1.List = City
ListBox1.ListIndex = 0
End
Sub Private Sub ListBox1_Click()
ListBox2.Clear
ListBox2.List = Shop(ListBox1.ListIndex)
End Sub

Ругается на
Shop(0) = Array(«Библеос-Глобус», «Дом книги», «Кнорус», «Мир»)
Shop(1) = Array(«Дом книги», «Техническая книга», «Прометей»)

[Hugo121]

У Вас кавычки не той системы...
А ещё сколько option base?