VBA-MsExcel. Ветвление

[funduk]

. (Excel) Составить программу вычисления Y:
Y = 0.3*Sin(x^2) – 1/x при |x| <= 0.5,
Y = x^2/(Sin(x) + 5) при |x| > 5

Sub mak2()
Dim a As Integer
Dim b As Double
Dim c As String
For i = 1 To 17 Step 1
a = Cells(i, 1)
If a = 0 Then
Cells(i, 2) = ("деление на ноль")
Else
If Abs(a) <= 0.5 Then
b = 0.3 * Sin(a ^ 2) - 1 / a
c = "0.3*sin(x^2)-1/x"
Cells(i, 2) = ("при x= " & a & "функция высчитывается по формуле" & c & " результат= " & b)
End If
If Abs(a) > 5 Then
b = a ^ 2 / ((Sin(a) + 5))
c = "x^2/((sin(x)+5))"
Cells(i, 2) = ("при x= " & a & " функция высчитывается по формуле" & c & " результат= " & b)
Else
Cells(i, 2) = ("не соответсвует условию")
End If
End If
Next i
End Sub

Здесь условия у меня не хорошие.Так считает по условию( х[-6...6]) и результаты совпадают ,но когда х-десятичное условие не правильно выполняется.Я эти условия и так,и этак переделывал,но результат - либо при десятичном числе выдает "деление на ноль", либо считает Х не принадлежавший условию

[funduk]

------------------------------
Здесь осталось создать кнопку.Хоть в ЛС можете написать хоть самый простой алгоритм создания?
------------------------------