Сжатие одномерного массива путем удаления элементов

Sub p1()
Dim n As Long, i As Long, k As Long, L As Double, st As String, t As String
    n = InputBox("Ââåäèòå ðàçìåðíîñòü ìàññèâà n")
If n > 0 Then
    L = InputBox("Ââåäèòå ÷èñëî L")
    ReDim a&(n - 1)
    k = 0
    i = 0
    Do
        t = InputBox("A(" & i & ")")
        If IsNumeric(t) Then
            a(i) = t
            st = st & a(i) & " "
            i = i + 1
        Else
            MsgBox "Ââåäèòå ÷èñëî"
        End If
    Loop While i < n
    MsgBox "Èñõîäíûé ìàññèâ: " & st
    
    st = ""
    For i = 0 To n - 1
        If a(i) = L Then
            For j = i To n - 2
                a(i) = a(i + 1)
                Next
            k = k + 1
            n = n - 1
        Else
            st = st & a(i) & " "
        End If
        Next
    MsgBox "Ìàññèâ: " & st
    Else: MsgBox "Íåâåðíî ââåäåíî n"
End If
End Sub

ReDim a&(n - 1)
' все равно что
ReDim a(n - 1) As Long