Обработать ошибку деления на ноль - VB

Формулировка задачи:

Проблема в том, что при последующих выполнениях программы выскакивает эта ошибка, в отличие от предыдущих запусков. Все переменны зависят от статичных вещей, поэтому каждый раз должны принимать одинаковые знаечния=>при разных запусках должен быть одинаковый результат. Ан нет. В общем, вот.

Private Sub Form_Click()
Dim x, y, a, b As Double
Dim c, absc, ord As Integer
Dim txt2, txt1 As String
Form1.Cls
txt1 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г*:")
txt2 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ b:")
If IsNumeric(txt1) And IsNumeric(txt2) Then
a = Val(s1)
b = Val(s2)
 
absc = ScaleWidth / 50
ord = ScaleHeight / 50
Scale (-absc, ord)-(absc, -ord)
DrawWidth = 3
Line (absc, 0)-(-absc, 0)
Line (0, ord)-(0, -ord)
 
DrawWidth = 1
(ниже рисутся семейство гипербол  по заданной формуле, проверяя выходят ли они за пределы формы)
For c = -10 To 10 Step 1
x = -absc
Do While Abs(x) <= absc
If x - a <> 0 Then
y = c / (x - a) + b
End If
If Abs(y) <= ord Then
PSet (x, y)
End If
x = x + 0.001
Loop
Next
Else: MsgBox "ГЋГёГЁГЎГЄГ*"
End If
End Sub

Решение задачи: «Обработать ошибку деления на ноль»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Click()
    Dim x As Double, y As Double, a As Double, b As Double, c As Integer
    Dim txt2 As String, txt1 As String
    Const SC As Integer = 10 '
    Form1.Cls': FillStyle = 0 'AutoRedraw = True
    txt1 = InputBox("Введите а:", "a", 0)
    txt2 = InputBox("Введите b:", "b", 0)
    If Not IsNumeric(txt1) Or Not IsNumeric(txt2) Then MsgBox "Ошибка": Exit Sub
    a = Val(txt1) 'a = Val(s1)'откуда взялось s1 ?
    b = Val(txt2) 'b = Val(s2)'откуда взялось s2 ?
    Scale (-SC, SC)-(SC, -SC)
    DrawWidth = 2
    Line (SC, 0)-(-SC, 0), vbBlue
    Line (0, SC)-(0, -SC), vbBlue
    DrawWidth = 1
    'ниже рисутся семейство гипербол  по заданной формуле, проверяя выходят ли они за пределы формы)
    For c = -10 To 10 Step 1
         x = -SC
         Do While Abs(x) <= SC
             If x - a <> 0 Then y = c / (x - a) + b
             If Abs(y) <= SC Then Circle (x, y), SC / 1000, IIf(c < 0, vbRed, vbGreen)
             x = x + 0.01 'DoEvents
         Loop
    Next
End Sub
                        