помогите пожалуйста исправить ошибку vba for excel

Question

Sub Prog() 
 Dim x As Single 
 Dim y As Single 
 x = _ 
InputBox("Введите значение") 
 If Abs(x > 1.5) Then y = (2 * x - 1 / (Sqr(3 * x + 2))) 
 MsgBox ("При x="&x,"функция вычисляется по формуле y=(2*x-1/(Sqr(3*x+2))). Результат="&y) 
End Sub

Наталья Алексина · Accepted Answer

Sub Prog() 
Dim x As Single 
Dim y As Single 
x = _ 
InputBox("Введите значение") 
If Abs(x > 1.5) Then 
 y = (2 * x - 1 / (Sqr(3 * x + 2))) 
 MsgBox ("При x=" & x & "функция вычисляется по формуле y=(2*x-1/(Sqr(3*x+2))). Результат=" & y) 
End If 
End Sub 
 
а вот результат: 
<img src="//otvet.imgsmail.ru/download/df79e4e30c5c5714a957362ed63ed09d_i-416.jpg" >

Алена Миронова · Answer

не знаю как в VBA, но в Excel десятичные числа пишутся через запятую