В одномерный массив после обозначенного элемента воткнуть количество символов заданного .

Option Explicit

Sub Nachalo()

Dim intKol3 As Integer

Dim intKol2 As Integer

Dim intIndex As Integer

Dim strArray As String

Dim intMin As Integer

Dim strN As String

Dim intI As Integer

Dim intJ As Integer

Dim intKol As Integer

Dim intRol() As Integer

Dim intRol2() As Integer

strN = InputBox("Введите натуральное число N", "Ввод числа")

intKol2 = Len(strN)

MsgBox ("Введено " + CStr(intKol2) + " цифр(ы)")

intKol = InputBox("Сколько эллементов в массив будем вводить?")

ReDim intRol(1 To intKol)

For intI = 1 To intKol

intRol(intI) = InputBox("Введите " + CStr(intI) + " элемент")

Next

intIndex = intRol(1)

For intI = 1 To intKol

 strArray = strArray amp; intRol(intI) amp; Space(1)

If intRol(intI) lt; intIndex Then intIndex = intI

Next

intMin = intRol(intIndex)

MsgBox (strArray + Chr(13) + Chr(10) + "Минимальный элемент = " + CStr(intMin) + Chr(13) + Chr(10) + "Его индекс= " + CStr(intIndex))

ReDim Preserve intRol(1 To (intKol + 1))

ReDim intRol2(1 To intKol)

intJ = 0

For intI = intIndex + 1 To (intKol)

intJ = intJ + 1

intRol2(intJ) = intRol(intI)

Next

intRol(intIndex + 1) = intKol2

intJ = 0

For intI = intIndex + 2 To (intKol + 1)

intJ = intJ + 1

intRol(intI) = intRol2(intJ)

Next

strArray = ""

For intI = 1 To intKol + 1

strArray = strArray amp; intRol(intI) amp; Space(1)

Next

MsgBox (strArray)

End Sub