Public Class otch200

    Public Property Prod0() As Long
        Get
            Return m_Prod0
        End Get
        Set(value As Long)
            m_Prod0 = value
        End Set
    End Property
    Private m_Prod0 As Long


    Public Property Prod1() As String
        Get
            Return m_Prod1
        End Get
        Set(value As String)
            m_Prod1 = value
        End Set
    End Property
    Private m_Prod1 As String


    Public Property Prod2() As Long
        Get
            Return m_Prod2
        End Get
        Set(value As Long)
            m_Prod2 = value
        End Set
    End Property
    Private m_Prod2 As Long


    Public Property Prod3() As String
        Get
            Return m_Prod3
        End Get
        Set(value As String)
            m_Prod3 = value
        End Set
    End Property
    Private m_Prod3 As String
end class

.... и так далее....

 For  r=0 to otch100.count-1

otch200.item(r).prod0=0
otch200.item(r).prod1="2000"
next