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

0 vote282 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote293 views1 answer
Make all controls in an area not visable vb
VBA
0 vote299 views1 answer
Find control with name vb
VBA
0 vote308 views1 answer
Excel vba prevent saving workbook
VBA
0 vote274 views1 answer
Vba copy paste value only
VBA
0 vote286 views1 answer
Vba sort multiple columns
VBA
0 vote297 views2 answers
Get excel file from email attachment in vba
VBA
1 vote329 views2 answers
Vba find last row in range for certain criteria
VBA
1 vote301 views1 answer
Excel vba array remove first
VBA
1 vote315 views1 answer
Find and replace textbox
VBA