Вставка и удаление элементов из массива - Visual Basic .NET

Формулировка задачи:

К примеру есть массив

                    Листинг программы
                
 Dim d As Integer() = {1, 2, 3, 4, 5, 6, 7, 8, 9}

Как мне "положить" в него ещё одно число? к Примеру 3, между 6 и 7? Чтобы вышло {1, 2, 3, 4, 5, 6, 3, 7, 8, 9} А так же как его оттуда удалить потом? Просто до этого пользовался конструкциями типа list(of) Но в данный момент нужен именно массив

Решение задачи: «Вставка и удаление элементов из массива»

textual
                            Листинг программы 
                        
 
                            
                        
    Public Shared Function SetValue(Of T)(Arr() As T, Value As T, StartIndex As Integer) As T()
        Return (From v As T In Arr Take StartIndex).Concat(New T() {Value}).Concat((From v As T In Arr Skip StartIndex)).ToArray()
    End Function
 
    Public Shared Function SetValues(Of T)(Arr() As T, Values() As T, StartIndex As Integer) As T()
        Return (From v As T In Arr Take StartIndex).Concat(Values).Concat((From v As T In Arr Skip StartIndex)).ToArray()
    End Function
 
    Public Shared Function RemoveIndex(Of T)(Arr() As T, Index As Integer) As T()
        Return (From v As T In Arr Take Index).Concat((From v As T In Arr Skip Index + 1)).ToArray()
    End Function
 
    Public Shared Function RemoveIndices(Of T)(Arr() As T, StartIndex As Integer, Length As Integer) As T()
        Return (From v As T In Arr Take StartIndex).Concat((From v As T In Arr Skip StartIndex + Length)).ToArray()
    End Function
 
    Public Shared Function RemoveIndices(Of T)(Arr() As T, Indices() As Integer) As T()
        Return Arr.Where(Function(v As T, i As Integer) Not Indices.Contains(i)).ToArray()
    End Function