Вычислить значение функции - VB (61973)

Формулировка задачи:

Добрый вечер. Помогите студенту-новачку написать программу. Только начали изучать язык. Много чего непонимаю. Буду благодарен за помощь!!!

Решение задачи: «Вычислить значение функции»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim W As Double, Z As Double
Private Sub Command1_Click()
  Z = InputBox("Z =", , -0.8)
  Select Case Z
    Case Is > 0
        W = Z ^ 3
    Case Is >= -2
        W = Z ^ 5 - 4 * Z
    Case Else
        W = Z + Sin(Z)
  End Select
   MsgBox (" W =" & W)
End Sub
                        