10  DATA  1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 
 20  FOR I= 1  TO  9 
 30  READ A(I):NEXT I

'Модуль
Option Explicit

Private m_Data()
Private m_DataIndex As Long

Public Sub DATA(ParamArray Params())
 Dim I As Long
 Dim lb As Long, ub As Long
 Erase m_Data
 lb = LBound(Params)
 ub = UBound(Params)
 m_DataIndex = lb
 ReDim m_Data(lb To ub)
 For I = lb To ub
    m_Data(I) = Params(I)
 Next I
End Sub

Public Sub READ(Param)
 Param = m_Data(m_DataIndex)
 m_DataIndex = m_DataIndex +  1 
End Sub

'Проверка
Public Sub Test()
 Dim I As Long
 Dim A( 1  To  9 ) As Integer
 
 DATA  1 ,  2 ,  3 ,  4 ,  5 ,  6 ,  7 ,  8 ,  9 
 For I =  1  To  9 
 READ A(I): Next I
 
 For I =  1  To  9 : Debug.Print A(I);: Next I: Debug.Print
End Sub