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 ) ' тут чуть подправил
    MsgBox "Исходный массив: a(" & i & ") = " & a(i)
Next i
' Это цикл находит индекс первого отрицательно значения в массиве
For i =  1  To  10 
    If a(i) <  0  Then
        firstmin = i 'ловим первое отрицательное, запоминаем адрес
        Exit For ' Дальше проверять массив не имеет смысла, нашли нужный элемент
    End If
Next i
' Это цикл находит максимальное значение в массиве
' Здесь просматривать нужно весь массив, в отличие от предыдущего цикла
For i =  1  To  10 
    If a(i) > temp Then
    'максимальных может быть не одно значение, запоминаем первое
    ' из-за строгого больше в условии проверки.
        temp = a(i)
        maks = i 'собираем максимальные, запоминаем адрес (изначально temp = Empty)
    End If
Next i
If firstmin =  0  Then
    MsgBox "Нет отрицательных чисел!" 'если так и не появилось отрицательное
Else
    d = a(firstmin)
    a(firstmin) = a(maks)
    a(maks) = d
    For i =  1  To  10 
        MsgBox "Массив после перестановки: a(" & i & ") = " & a(i)
    Next i
End If
End Sub