Не работает код (Классы в ВБ) - VB

Public Zveno() As clZveno
Public top_Zveno As clZveno
 
Public Sub CreateZveno()
Dim StartTime As Long, StopTime As Long
Dim I As Integer, J As Integer
Dim mLen As Integer, mStr As String
Dim ptr As clZveno
    StartTime = GetTickCount()
'-------------------------------------------------------------------
'    Set ptr = New clZveno
    I = 0
    ReDim Zveno(I)
    Set Zveno(0) = New clZveno
'    Set Zveno(0).NextZveno = Nothing
'    Set Zveno(0).DownZveno = Nothing
'    Zveno(0).zBukva = '+'
    
'    Set ptr = Zveno(0)
    
    For I = 1 To 10
    Set ptr = Zveno(0)
    
        mStr = Trim$(AllPravila(I).Okon1): mLen = Len(mStr)
            For J = 1 To mLen
                If Mid$(mStr, J, 1) = ptr.zBukva Then