Помогите пожалуйста найти ошибку.
Задание:С помощью пользовательских процедур и функций протабулировать с выбранным шагом на заданном отрезке функцию  

Sub Т()
   Dim x As Double, y As Double
   Dim xmin As Double, xmax As Double, h As Double
   xmin = Range("A3").Value = -1.5
   xmax = Range("B3").Value = 1.8
   h = Range("C3").Value = 0.5

   For x = xmin To xmax Step h
    If x <= 0 Then
        y = Sqr(1 + x)
    Else
        y = (1 + 3 * x) / (2 + (1 + x) ^ 1 / 3)
    End If
        Cells(4, 4).Value = x
        Cells(5, 5).Value = y
 
    Next x
      
 End Sub

Данный код делает следующее:
Берётся константа -1.5;
Берётся значение из ячейки А3 текущего листа;
Значение из ячейки приводится к типу Single;
Приведённое значение сравнивается с константой;
Результат сравнения преобразуется из Boolean в Double;
Полученный результат записывается в переменную xmin.

Что-то мне подсказывает, что кто-то ни хрена не учился в течение семестра...

а дальше начинается жесть...