Sub nnn()
'Cls
Dim a( 1  To  10 ) As Integer
Randomize Timer
MsgBox " исходный массив а "
For i =  1  To  10  ' Step 2
a(i) = Rnd * ( 40  - (- 20 )) + (- 20 )
MsgBox "a(" & i & ")=" & a(i)
Next i
'ko = 0
p =  1 
For i =  1  To  10 
If a(i) <  0  Then p = p * a(i) ': ko = ko + a(i)
Next i
MsgBox " произведение отрицательных элеметов = " & p
End Sub

If a(i) <  0  Then p = p * a(i) 

Sub swapel()
Dim a( 1  To  10 ) As Integer ' инициализируем массив в 10 элементов
firstmin =  0  'детектор отрицательных чисел
Randomize Timer ' инициализирует датчик случайных чисел. 
For i =  1  To  10 
    a(i) = Rnd * ( 20  - (- 15 )) + (- 15 ) ' тут чуть подправил
    If firstmin =  0  Then If a(i) <  0  Then firstmin = i 'ловим первое отрицательное, запоминаем адрес
    If a(i) > temp Then temp = a(i): maks = i 'собираем максимальные, запоминаем адрес (изначально temp = Empty)
    'максимальных может быть не одно значение, запоминаем первое
    MsgBox "Исходный массив: a(" & i & ") = " & a(i)
Next i
If firstmin =  0  Then MsgBox "Нет отрицательных чисел!": Exit Sub 'если так и не появилось отрицательное
d = a(firstmin)
a(firstmin) = a(maks)
a(maks) = d
For i =  1  To  10 
    MsgBox "Массив после перестановки: a(" & i & ") = " & a(i)
Next i
End Sub

Option Base  1 
Sub swapel()
Dim a() As Integer ' инициализируем массив
SourceNumberStr = InputBox("Введите размер массива, целое (желательно небольшое) число ", "Введите число", "10")
SourceNumber = Val(SourceNumberStr)
ReDim Preserve a(SourceNumber)
firstmin =  0  'детектор отрицательных чисел
Randomize Timer ' инициализирует датчик случайных чисел.
For i = LBound(a) To UBound(a)
    a(i) = Rnd * ( 40  - (- 20 )) + (- 20 ) ' тут чуть подправил
    If firstmin =  0  Then If a(i) <  0  Then firstmin = i 'ловим первое отрицательное, запоминаем адрес
    If a(i) > temp Then temp = a(i): maks = i 'собираем максимальные, запоминаем адрес (изначально temp = Empty)
    'максимальных может быть не одно значение, запоминаем первое
    MsgBox "Исходный массив: a(" & i & ") = " & a(i)
Next i
If firstmin =  0  Then MsgBox "Нет отрицательных чисел!": Exit Sub 'если так и не появилось отрицательное
d = a(firstmin)
a(firstmin) = a(maks)
a(maks) = d
For i = LBound(a) To UBound(a)
    MsgBox "Массив после перестановки: a(" & i & ") = " & a(i)
Next i