Составить программу вычисления функции двумя способами (If Then Else и Select Case) - VB

Const e = 2.71828182845905
Private Sub Command1_Click()
    a = InputBox("a")
    b = InputBox("b") 'В РАДИАНАХ 
    x = e ^ (-a) * Sin(b)
    If x >= 0 And x < 1 Then
        y = (Sin(x) + 1) ^ 0.5
    ElseIf x >= 1 And x < 3 Then
        y = (Log(x) + 1) / (x + 2)
    Else
        y = e ^ (-x)
    End If
    MsgBox "y(" & Format(x, "0.000") & ") = " & Format(y, "0.000")
End Sub