求VB小程序编写方法

我写了一个解一元二次方程的小程序，您可以参考一下

Private Sub Form_Load()
a = InputBox("a=", "请输入二次项的系数")
b = InputBox("b=", "请输入一次项的系数")
c = InputBox("c=", "请输入常数项的值")
If IsNumeric(a) And IsNumeric(b) And IsNumeric(c) Then
If a <> 0 And b <> 0 Then
i = b ^ 2 - 4 * a * c
If i >= 0 Then
If i > 0 Then
X1 = (-b + Sqr(i)) / (2 * a)
X2 = (-b - Sqr(i)) / (2 * a)
MsgBox "X1=" & X1
MsgBox "X2=" & X2
Else
X1 = -b / (2 * a)
MsgBox "X1=X2=" & X1
End If
Else
MsgBox "方程没有实数解"
End If
End If
End If
End Sub

自己写算术公式函数呗