Private Type typ
    a As Integer
    b As Integer
    c As Integer
End Type

Private Sub Command1_Click()
    Dim avarItems() As typ
    Dim intI As Integer
    Dim intTemp As Integer
    
    ReDim avarItems( 1  To  3 )
    
    avarItems( 1 ).a =  1 
    avarItems( 1 ).b =  2 
    avarItems( 1 ).c =  2 
    avarItems( 2 ).a =  0 
    avarItems( 2 ).b =  0 
    avarItems( 2 ).c =  0 
    avarItems( 3 ).a =  1 
    avarItems( 3 ).b =  2 
    avarItems( 3 ).c =  2 
    
    intTemp =  0 
        
    For intI = LBound(avarItems) To UBound(avarItems)
        If avarItems(intI).a <>  0  Then
            intTemp = intTemp +  1 
            
            avarItems(intTemp).a = avarItems(intI).a
            avarItems(intTemp).b = avarItems(intI).b
            avarItems(intTemp).c = avarItems(intI).c
        End If
    Next intI
    
    ReDim Preserve avarItems( 1  To intTemp)
    
    Debug.Print UBound(avarItems)
    
    For intI = LBound(avarItems) To UBound(avarItems)
        Debug.Print avarItems(intI).a; avarItems(intI).b; avarItems(intI).c
    Next intI
End Sub