я новичок в этом деле так что не смейтесь.
в Экселе еще более мение понимаю что к чему.

Для примера составил простую прогаммку:

Sub arvut()
Dim a As Single, b As Sigle, c As Single
Dim x1 As Single, x2 As Single
a = cells(2, 2)
b = cells(3, 2)
c = cells(4, 2)
If (b ^ 2 - 4 * a * c) > o Then
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
cells(3, 4) = x1
cells(4, 4) = x2
Else
MsgBox "Проверь данные!"
End If
End Sub

как в MVB6 заменить "cells" на что то другое?