Foro de elhacker.net

Dim i, j as integer 'Contadores
Dim Nombre As String

For i = 1 To "cantidad de objetos en el array"
    if array(i) = Nombre Then 
        for j = 1 to "objetos array - i"
            If not (i+1) > cantidad de objetos en el array then array(i) = array(i+1) else: array(i) = ""
        next j
    end if
next i

Option Explicit
Dim MyArray() As String

Private Sub Command1_Click()
If DeleteItem(5) Then
    ImprimirArray
    MsgBox "El Array tiene " & UBound(MyArray) & " Items"
Else
    MsgBox "El indice esta fuera del intervalo"
End If
End Sub

Private Sub Form_Load()
    Dim i As Long
    
    ReDim MyArray(0)
    
    For i = 0 To 9
        AddItem "Item" & i
    Next
    
    ImprimirArray
    
    MsgBox "El Array tiene " & UBound(MyArray) & " Items"
End Sub


Private Sub AddItem(Text As String)
    Dim Count As Long
    Count = UBound(MyArray)
    MyArray(Count) = Text
    ReDim Preserve MyArray(Count + 1)
End Sub

Private Function DeleteItem(ByVal Index As Long) As Boolean

    Dim i As Long
    Dim Count As Long
    Count = UBound(MyArray)
    If Index <= Count And Index >= LBound(MyArray) Then
        For i = Index To Count - 1
            MyArray(i) = MyArray(i + 1)
        Next
        ReDim Preserve MyArray(Count - 1)
        DeleteItem = True
    End If
End Function

Private Sub ImprimirArray()
    Dim i As Long
    Dim Count As Long
    Count = UBound(MyArray)
    For i = 0 To Count
        Debug.Print MyArray(i)
    Next
End Sub