Если в массиве есть хотя бы один элемент, равный 2, то все четные элементы массива заменить нулями

Option Explicit
  Dim masN%(15)
  Dim masK%(15)
  Const xMin% = 0
  Const xMax% = 25
  Dim elem%, s%, nElem%
  Dim summa!
 
Private Sub Form_Load()
       Randomize Timer
 
End Sub
 
Private Sub vixid_Click()
  tablMasN = "": tablMasK = ""
  elem% = 0: nElem% = 0: summa! = 0
  kol = "": suma = ""
  da2.Value = False
  Rem заполнение начального массива случайными числам
  Rem  и одновременная проверка на наличие двойки
  For s% = 0 To 15        'F1
    masN%(s%) = Int((xMax% - xMin% + 1) * Rnd + xMin%)
    tablMasN = tablMasN & masN%(s%) & Chr$(13)
    If masN%(s%) = 2 Then elem% = 2: da2.Value = True
  Next                    'F1
  Rem конец заполнение начального массива случайными числам
  
  If elem% = 2 Then       'I1
    Rem при наличии двойки обнуление чётных элементов
    Rem и заполнение конечного массива
    For s% = 0 To 14 Step 2   'F2
      masN%(s%) = 0: nElem% = nElem% + 1
      masK%(s%) = 0: masK%(s% + 1) = masN%(s% + 1)
      tablMasK = tablMasK & masK%(s%) & Chr$(13)
      tablMasK = tablMasK & masK%(s% + 1) & Chr$(13)
    Next                      'F2
    kol = nElem%
    Rem при наличии двойки обнуление чётных элементов
    Rem и заполнение конечного массива
  
  Else                    'I1
    Rem при выполнении второго условия расчет среднеарифметической
    Rem  суммы по нечетным элементам
    nElem% = 0
    For s% = 1 To 15 Step 2   'F3
      summa! = summa! + masN%(s%)
      nElem% = nElem% + 1
    Next                      'F3
    summa! = summa! / nElem%
    suma = summa!
    tablMasK = "Данный массив при выполнении второго условия задачи равен первому массиву"
    Rem конец при выполнении второго условия расчет среднеарифметической
  End If                  'I1
End Sub
 
'********   обозначения   *************
'   elem%           - признак наличия 2
'   masK%()         - конечный массив
'   masN%()         - начальный массив
'   xMin%           - минимальное число
'   xMax%           - максимальное число
'   s%              - счётчик
 
' D0    F2    I1    S0