VBA (Exel) помогите разбить на две части формулу, я тупой, нихера не учил :(Elself -1<=Z<=3 Then

полное:
Private Sub CmdSolve_Click()
Z = CSng(TextZ.Text)
If Z > 3 Then
Y = 1 + Exp(-Z)
Elself -1 <= Z <= 3
Y = Z + Sqr(Abs(Z1))
Else
Y = Cos(Z) + Z * Z
End If
Textz1.Text = CStr(Z)
TextY.Text = CStr(Y)
End Sub