Public Type koord
x As Double
y As Double
End Type

Sub zadacha20()
Dim axy() As koord
Dim a As Integer, b As Integer, i As Integer, n As Integer, k As Integer
n = CInt(Val(InputBox("Ââåäèòå êîëè÷åñòâî òî÷åê")))
ReDim axy(n)
For i = 1 To n
  axy.x(i) = Cells(i, 1)
  axy.y(i) = Cells(i, 2)
Next i
a = CInt(Val(InputBox("Ââåäèòå Õ")))
b = CInt(Val(InputBox("Ââåäèòå Y")))
k = 0
For i = 1 To n
  If a * axy.x(i) + b < axy.y(i) Then
    k = k + 1
    Cells(i, 3) = "&#221;&#242;&#224; &#242;&#238;&#247;&#234;&#224; &#226;&#251;&#248;&#229; &#239;&#240;&#255;&#236;&#238;&#233;"
  End If
Next i
MsgBox ("&#206;&#225;&#249;&#229;&#229; &#234;&#238;&#235;&#232;&#247;&#229;&#241;&#242;&#226;&#238; &#242;&#238;&#247;&#229;&#234;, &#226;&#251;&#248;&#229; &#239;&#240;&#255;&#236;&#238;&#233; = " + Format(k, "# ##0"))
End Sub