Помогите с VB.

[Spanchebob]

Условие задачи:
1.W1 = yx,      W2=  √y+1 - +1 тоже под корнем            , если y ≤ 0
  W1 = 0,      ввести W2                                       , если 0 < y ≤ 2c
  W1 = Lgy,      W2 = Lny                                       , если y > 2c

Объясните пожалуйста как решать, заранее спасибо.

Private Sub Command1_Click()
Dim x As Single, y As Single, c As Single
Dim W1 As Single, W2 As Single
y = Val(Text1.Text)
c = Val(Text2.Text)
If y > 2 * c Then
W1 = Log(y) / Log(10)
W2 = Log(y)
Else
If y <= 0 Then
W1 = y ^ x
W2 = Sqr(y + 1)
End If
Print "W1=" & Format(W1, "0.00") & " W2=" & Format(W2, "0.00")
End If
End Sub

Вот алгоритм, укажите ошибки если возможно, что где исправить, а лучше чтобы я понял как это делать, если не сложно.