Решение системы линейных уравнений с построением блок-схем

Dim a1 As Single

Sub P1()
'С помощью Dim создаём в оперативной памяти компьютера переменные.
'Single означает, что в переменных могут быть как целые, так и дробные числа.
Dim a1 As Single, b1 As Single, c1 As Single
Dim a2 As Single, b2 As Single, c2 As Single
Dim x As Single, y As Single
'С помощью InputBox помещаем в эти переменные числа.
a1 = InputBox("Введите a1")
b1 = InputBox("Введите b1")
c1 = InputBox("Введите c1")
a2 = InputBox("Введите a2")
b2 = InputBox("Введите b2")
c2 = InputBox("Введите c2")
'С помощью If ... Then ... Else ... End If выбираем действие.
'С помощью Abs превращаем число в модуль.
If Abs(a1 * b2 - a2 * b1) >= 0.001 Then
    x = (c1 * b2 - c2 * b1) / (a1 * b2 - b1 * a2)
    y = (a1 * c2 - a2 * c1) / (a1 * b2 - b1 * a2)
    MsgBox "x = " & x
    MsgBox "y = " & y
End If
End Sub

Private Sub CommandButton1_Click()
 
Dim s1 As Single, b1 As Single, f1 As Single
Dim s2 As Single, b2 As Single, f2 As Single
Dim d As Single, d1 As Single, d2 As Single
Dim x As Single, y As Single
s1 = Val(InputBox("Введите а1", "", "число"))
s2 = Val(InputBox("Введите а2", "", "число"))
b1 = Val(InputBox("Введите b1", "", "число"))
b2 = Val(InputBox("Введите b2", "", "число"))
f1 = Val(InputBox("Введите c1", "", "число"))
f2 = Val(InputBox("Введите c2", "", "число"))
d = s1 * b2 - b1 * s2
d1 = f1 * b2 - b1 * f2
d2 = s1 * f2 - f1 * s2
If d = 0 Then
MsgBox "Система не имеет решения"
Else
x = d1 / d
y = d2 / d
MsgBox "x = " & x
MsgBox "y = " & y
End If
 
End Sub