Выделить все четные положительные элементы цветом и обвести рамкой, максимальный элемент увеличить в 10 раз - VB

Sub JuneKarou()
Dim i%, k%, q%, Max&
Cells.Clear
ReDim a(1 To 10)
For i = 1 To 10
  a(i) = Int((30 * Rnd) - 15)
  Cells(i, 3) = a(i)
Next
 
k = 0
For i = 1 To 10
  If Cells(i, 3) > 0 And a(i) Mod 2 = 0 Then
  Cells(i, 3).Font.Color = vbRed
  Cells(i, 3).Borders.Weight = xlMedium
  k = k + 1
  End If
Next
 
Max = 10: q = 0
  For i = 1 To 10
    If Cells(i, 3) >= Max Then
    Max = Cells(i, 3)
    q = i
    Cells(q, 5) = 10 * Max
    Cells(q, 5).Font.Color = vbBlue
    Cells(q, 5).Borders.Weight = xlMedium
    End If
   Next
  
End Sub