End With по требованию

Private Type tpNode
    Val As Long
End Type
 
Sub TestWith()
    Dim i&, Nodes() As tpNode
    
    ReDim Nodes(5) As tpNode
    
    Do
        With Nodes(2)
            .Val = 1
            Exit Do
        End With
    Loop
    
    ReDim Preserve Nodes(6)    
End Sub

Option Explicit
Dim Nodes() As tpNode
 
Private Type tpNode
    Val As Long
End Type
 
Sub TestWith()
    ReDim Nodes(5) As tpNode
    
    Do
        With Nodes(2)
            .Val = 1
            Exit Sub
        End With
    Loop
End Sub
 
Private Sub Form_Load()
    TestWith
    ReDim Preserve Nodes(6) ' Вызвать после процедуры, а из процедуры делать выход в конструкции With
End Sub

WithElem:
    With Nodes(i)
      GoTo Cycle
      Do
          GoTo WithElem
Cycle:
          i = i + 1
          If i < 5 Then
              .Val = i
          Else: Exit Do
          End If
      Loop
    End With
    
    ReDim Preserve Nodes(6)

    GoTo StartCycle
WithNode:
    With Nodes(i)
      GoTo Cycle
StartCycle:
      For i = 1 To 5
          GoTo WithNode
Cycle:
          If i < 5 Then
          .Val = i
          Else: Exit For
          End If
      Next
    End With

Sub TestWith2(Optional ByVal lp0&)
    Dim Nodes(2) As tpNode, Node As tpNode, pTmp&
    pTmp = VarPtr(pTmp) - 4
    
    With Node
        CopyMemory ByVal pTmp, VarPtr(Nodes(0)), 4
        .Val = 1
        CopyMemory ByVal pTmp, VarPtr(Nodes(1)), 4
        .Val = 2
        CopyMemory ByVal pTmp, VarPtr(Nodes(2)), 4
        .Val = 3
    End With
    Debug.Print Nodes(0).Val & vbCr & _
                Nodes(1).Val & vbCr & _
                Nodes(2).Val
End Sub

      Do
          With Nodes(i)
            i = i + 1
            If i < 5 Then
                .Val = i
            Else: stopIter = True
            End If
          End With
      Loop Until stopIter = True

    For i = 1 To 5
        With Nodes(i)
          If i < 5 Then
              .Val = i
          Else
              i = 5 'Exit For
          End If
        End With
    Next

    GoTo InWith
WithNode:
    With Nodes(i)
Return
InWith:
      
      Do
          GoSub WithNode
          If i < 5 Then
              i = i + 1
              .Val = i
          Else
              Exit Do
          End If
      Loop
      
      l = Rnd * 5
      For i = 1 To 5
          GoSub WithNode
          If i = l Then .Val = l: Exit For
      Next
    
    End With

    frmMain.picScore.CurrentX = 2
    frmMain.picScore.CurrentY = 32 * i - 4
    frmMain.picScore.Print PlName(i);
    frmMain.picScore.CurrentX = 216
    frmMain.picScore.Print Trim(Str(PlScore(i)));

    .CurrentX = 2
    .CurrentY = 32 * i - 4
    .Print PlName(i);
    .CurrentX = 216
    .Print Trim(Str(PlScore(i)));