Sub Example()
Dim A, B
Dim x, y ' координаты
Dim i, k, s()
Dim c() As Integer ' массив с координатами
Dim xx As Single ' уравнение
    B = -3
    A = 2
ReDim c(1 To 3, 1 To 2) '- можно сразу объявить размерность массива

For i = 1 To 3
    x = Val(InputBox(" Введіть число x"))
    y = Val(InputBox(" Введіть число y"))
    c(i, 1) = x
    c(i, 2) = y
Next i

k = 1
For i = LBound(c) To UBound(c)
    xx = A * c(i, 1) + B
    If xx = c(i, 2) Then
    ReDim Preserve s(1 To k)
        s(k) = "Точка с координатами: " & "(" & c(i, 1) & ";" & c(i, 2) & ")" & _
        " принадлежит данной функции"
       k = k + 1
    End If
Next i
Cells(1, 1).Resize(UBound(s), 1) = Application.Transpose(s)
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = "Количество точек, принадлежащих функции:"
Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = UBound(s)
End Sub