Visual Basic Не могу понять где в коде ошибка

Вот код:
Private Sub CmdZ_Click()
x = InputBox("Ââåñòè çíà÷åííÿ x", "Ââîäèìî x")
a = 0.45
c = 1.68
If (x >= 0.5) And (x < 2.7) Then
z = 1 / Tan(c) / (10 - a)
ElseIf (x = 2.7) Then
z = (x + c) ^ 5
ElseIf (x > 2.7) And (x <= 4) Then
z = 3
End If
LstZ.AddItem (z)
End Sub

И формула:
ctg c
_____ если 0,5<=x<2,7
10-a

z=( (x+c) ^5 если x=2,7

3 если 2,7

z= в фигурных скобках :
ctg c
_____ если 0,5<=x<2,7
10-a

z=( (x+c) ^5 если x=2,7

3 если 2,7.

В InputBox это на украинском языке. (поэтому и иероглифы)

? я на Visual basic только пример проверил все работает, а у меня где то что то не так.
Если вы не разбераетесь в програмирование, то зачем тогда писать что это не Visual Basic? Вам исходник или сам проект в exe файле скинуть?

3 если 2,7