Определить, все ли числа меньше заданного числа k

  Dim sT As String
  Dim iI As Integer
  Dim iK As Integer      ' Счётчик события - МЕНЬШЕ ЗАДАННОГО ЧИСЛА K
  Dim iArrayN As Integer ' N - которые ВВОДЯТСЯ N ЧИСЕЛ
  Dim dK As Double       ' то самое K - ВСЕ ЛИ ЧИСЛА МЕНЬШЕ ЗАДАННОГО ЧИСЛА K
  Dim dArray() As Double ' Массивчик под ПРОСТУЮ ПЕРЕМЕННУЮ
  '
  iArrayN = CInt(Val(InputBox("N=", "ВВОДЯТСЯ N ЧИСЕЛ")))
  ReDim dArray(1 To iArrayN) As Double ' Определяем размер массива
  For iI = 1 To iArrayN Step 1
    ' Персональное приглашение для каждой переменной
    sT = "X(" + Trim$(Str$(iI)) + ")="
    ' Вводим элементы массива
    dArray(iI) = CDbl(Val(InputBox(sT, "ПРОСТАЯ ПЕРЕМЕННАЯ")))
  Next iI
  ' Проверка
  dK = CDbl(Val(InputBox("K=", "ВСЕ ЛИ ЧИСЛА МЕНЬШЕ ЗАДАННОГО ЧИСЛА K?")))
  iK = 0 ' Можно и не делать, но на всякий случай...
  For iI = 1 To iArrayN Step 1
    If dArray(iI) > dK Then
      iK = iK + 1
    End If
  Next iI
  If 0 <> iK Then
    MsgBox "НЕТ, НЕ ВСЕ!", vbInformation
  Else
    MsgBox "АГА, ВСЕ!", vbInformation
  End If