Составить решение и блок схему задачи - VB

Private Sub Command1_Click()
Dim x As Single, Y As Single, a As Single, b As Single
Const e = 2.718282
a = InputBox("a = ", , -6): b = InputBox("b = ", , -10.2)
x = a ^ 2 + 3 * b
Select Case x
       Case Is < -1: Y = Sin(1 + x) / (1 + x)
       Case Is = -1: Y = 20.7 * x + e ^ x + 1
       Case Is > -1: Y = (1 + x) * (1 + x)
End Select
MsgBox "x = " & x & vbCrLf & "Y = " & Y
End Sub