Разработать схему алгоритма и код приложения - VB

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

Помогите решить, вроде всё правильно сделал, но не работает... Поставить задачу. Разработать схему алгоритма и код приложения. Отладить код приложения. { b^3,если x<0 m = 100x +{ c*ctg(x),если x>0 { 0,если x=0 Private Sub Command1_Click() Dim x As Single, b As Single, c As Single, m As Single x = InputBox("Введите значение x") b = InputBox("Введите значение b") c = InputBox("Введите значение c") If x < 0 Then m = 100 * x + b ^ 3 Else If x > 0 Then m = 100 * x + c * 1 / Tan(x) ElseIf x = 0 Then m = 100 * x MsgBox (" m= " & m) End If End If End Sub

Решение задачи: «Разработать схему алгоритма и код приложения»

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

                            Private Sub Command1_Click()
    Dim x As Single, b As Single, c As Single, m As Single
    x = InputBox("Введите значение x")
    b = InputBox("Введите значение b")
    c = InputBox("Введите значение c")
    m = 100 * x
    
    If x < 0 Then
         m = m + b ^ 3
    ElseIf x > 0 Then
         m = m + c * (1 / Tan(x))
    End If
    
    MsgBox (" m = " & m)
    
End Sub
                        