Прекратить вычисления в программе при определенном значении переменной - VB

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

вычислить корни уравнения ax^2+bx+c=0. a,b,c - вводятся с клавиатуры. проверить, что а<>0 если а<>0, тогда проверяем дискриминант...

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim x1 As Integer
Dim x2 As Integer
 
Private Sub cmdResh_Click()
LabelX1.Caption = " "
LabelX2.Caption = " "
LabelKorn.Caption = " "
a = txtA.Text
b = txtB.Text
c = txtC.Text
d = b ^ 2 - 4 * a * c
If a = 0 Then LabelKorn.Caption = LabelKorn.Caption & "a=0!"
 If d < 0 Then LabelKorn.Caption = LabelKorn.Caption & "ГЌГҐГІ Г°ГҐГёГҐГ*ГЁГї,Г¤ГЁГ±ГЄГ°ГЁГ¬ГЁГ*Г*Г*ГІ <0"
 If d >= 0 Then x1 = (-b + Sqr(d)) / (2 * a): x2 = (-b - Sqr(d)) / (2 * a): _
LabelX1.Caption = LabelX1.Caption & x1: LabelX2.Caption = LabelX2.Caption & x2: _
LabelKorn.Caption = LabelKorn.Caption & "ГЉГ®Г°Г*ГЁ ГіГ°Г*ГўГ*ГҐГ*ГЁГї:"
End Sub

т.е. мне надо, если а=0,то дальше не выполняется

Решение задачи: «Прекратить вычисления в программе при определенном значении переменной»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim x1 As Single
Dim x2 As Single
Private Sub cmdResh_Click()
LabelX1.Caption = " "
LabelX2.Caption = " "
LabelKorn.Caption = " "
a = txtA.Text
b = txtB.Text
c = txtC.Text
d = b ^ 2 - 4 * a * c
If a = 0 Then LabelKorn.Caption = LabelKorn.Caption & "a=0!"
If (a <> 0) And (d > 0) Then x1 = (-b + Sqr(d)) / (2 * a): x2 = (-b - Sqr(d)) / (2 * a): _
LabelX2.Caption = LabelX2.Caption & x2: LabelX1.Caption = LabelX1.Caption & x1: _
LabelKorn.Caption = LabelKorn.Caption & "Корни уравнения:"
If (a <> 0) And (d = 0) Then x1 = (-b) / (2 * a): LabelX1.Caption = LabelX1.Caption & x1: _
LabelKorn.Caption = LabelKorn.Caption & "Корни уравнения:"
If (a <> 0) And d < 0 Then LabelKorn.Caption = LabelKorn.Caption & "d<0"
End Sub