Точки пересечений прямой и параболы

[bxilmhack]

Даны уравнения параболы и прямой. Парабола: y=x^2 - 10. Прямая: y=4x + 11. В математике, чтобы найти точку пересечения их надо приравнять x^2 - 10= 4x + 11. Затем решать как квадратное уравнение, то есть найти дискриминант и через него две точки пересечения. Но как это сделать в vba? То есть, каким образом мне приравнять их и затем найти дискриминант и точки пересечения в программе?
вот код, который я написал, но он не рабочий. Пожалуйста, помогите:
Dim a As Integer
Dim z, D As Integer
Dim x, y1, y2, x1, x2 As Integer
y1 = x^2 - 10
y2 = 4*x +11
z = x^2-10-4*x+11
MsgBox z, vbOKOnly, "Âûâîä"