Объявление переменных

Вы не поняли что я имела ввиду.
При такой записи
надо очень много строк писать:
Public n1 As Integer
Public n2 As Integer
и т.д.
А я хотела записать одной строкой:
Public n(1 To 38) As Integer
Но при объявлении одной строкой переменных
n(1)
n(2)
...
n(38)
их значение не передается в следующий код.
А при объявлении каждой переменной отдельной строкой - значение переменных передается в следующий код!!!
Я хотела не писать много строчек объявляя каждую переменную в отдельной строчке.

Этим кодом (представлен фрагмент) я нахожу блоки и записываю найденые блоки в n1, n2 и т.д.
'Public n(1 To 38) As Integer - Этой строкой не получается
Public n1 As Integer
Public n2 As Integer
Public Sub Poisk_01()
     Dim ss As AcadSelectionSet
     Dim fType(2) As Integer
     Dim fData(2) As Variant
     With ThisDrawing.SelectionSets
          While .Count > 0
               .Item(0).Delete
          Wend
          Set ss = .Add("$Blocks$")
     End With
     fType(0) = 0: fType(1) = 2: fType(2) = 67
     fData(0) = "INSERT": fData(1) = "П11-(211)": fData(2) = 0 '
     ss.Select acSelectionSetAll, , , fType, fData
n1 = ss.Count
     ss.Delete
End Sub

> Дарья
Из приведенных примеров не видно главного - как вы передаете значения из процедуры в процедуру.
А проблема как раз в этом. VB6 позволяет передавать и возвращать массивы, вот пример такого синтаксиса:

Sub ArraySample()
    Dim MyArray(2) As Integer
    MyArray(0) = 15
    MyArray(1) = 16
    MyArray(2) = 17
    Call ArrayPrint(MyArray)
End Sub
Private Sub ArrayPrint(YourArray() As Integer)
    Dim i As Integer
    For i = 0 To UBound(YourArray)
        MsgBox YourArray(i)
    Next i
End Sub

Вариант номер два - объявить соответсвующий массив на уровне глобального.

> Дарья
Ну, правильно.

Public MyArray(2) As Integer

объявленный в секции (General)(Declarations) модуля.
(может вы объявляли его в модуле формы?)
Прав brigval (как всегда) - покажите код.
Из приведенных фрагментов не видна структура программы и, следовательно, непонятны механизмы передачи данных в этой структуре.