Vba delete array element

Public Sub DeleteElementFromArray(ByRef pArray As Variant, ByVal pIndex As Long)
    Dim index As Integer
    If pIndex >= LBound(pArray) And pIndex <= UBound(pArray) Then
        For index = pIndex + 1 To UBound(pArray)
            pArray(index - 1) = pArray(index)
        Next
        If UBound(pArray) - LBound(pArray) > 0 Then
            ReDim Preserve pArray(UBound(pArray) - LBound(pArray) - 1)
        Else
            ReDim pArray(0)
        End If
    End If
End Sub

Similar codes

1 vote209 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
3 votes195 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote209 views1 answer
Vba check if class implements interface
VBA
0 vote178 views1 answer
Enter into cells data grid view
VBA
0 vote227 views1 answer
Vbnet check if string is only letters
VBA
0 vote206 views1 answer
Build an index all files of a FTP site
VBA
1 vote238 views1 answer
Perform http request in vb.net
VBA
0 vote189 views1 answer
How to extract a file from an ISO:
VBA
0 vote200 views1 answer
Excel filter by date not working vba
VBA
0 vote207 views1 answer
Excel vba combine ranges
VBA