Господа прошу помощи. Мозги свернул. Че неправильно ?

Dim Freq[34] As Word = 700, 700, 780, 700, 625, 590, 520, 460, 350, 350, 460, 520, 590, 625, 590, 520, 700, 700,_
700, 780, 700, 625, 590, 520, 460, 350, 350, 625, 590, 520, 700, 590, 520, 460

Компилятор пишет - см. картинку. Требует запятую (куда ???), или неправильно завершена команда (???)
С уважением.

Давай всю портянку ,так непонятно.

Беда в убогом хелпе. Написано как задать массив, но не написано ни слова как создать массив заданных значений (pre-assigned array).
Стандартный для Бейсиков способ

Dim Array[10] as Byte = [1, 2, 3, 4, 5, 6,7, 8, 9, 0]

не прокатывает. А задавать значения каждому элементу

Array[0] =X0, Array[1] =X1 и тд.

- крыша съедет. Кроме того массив жрет память переменных. А ее мало,
а нужен массив констант. Вышел из положения с коммандой LookUpL

Dim Freq as word
Dim I as byte

Freq = LookUpL I, [520, 590, 625, 590, 520, 700, 700,_
590, 520, 700, 590, 520, 460]

Создается массив констант в памяти программ, из которого берутся значения по индексу
Вообще неплохое решение, но почему в хелпе нихрена ни слова на эту тему.
Спасибо всем. Проблема решена.

возможно символ подчеркивания вызывает ошибку
...700, 700,_ ...