'массив содержащий детали которые с ПМ 52,61,62
  Dim detNote( 0  To  500 ,  0  To  2 ) As String
  
  'инициализация гребанного массива  ]:->
  For i =  0  To  500 
    detNote(i,  0 ) = ""
    detNote(i,  1 ) = ""
  Next i

Call FillBody(n_ordspec_id, rowNumber, rowNumber_inList, listNumber, List_Row_1, detNote)

Private Sub FillBody(ByVal n_ordspec_id As Integer, ByRef rowNumber As Integer, ByRef rowNumber_inList As Integer, _
  ByRef listNumber As Integer, ByRef List_Row_1 As Integer, ByRef detNote() As Object)

ByRef detNote As String