Построить таблицу значений. Не работает с шагом в виде десятичной дроби

Sub задача1()
    Dim x0 As Integer, xn As Integer
    Dim dx As Single, x As Single, y As Single
    x0 = InputBox("ââåäèòå õ íà÷àëüíîå", "ââîä ïàðàìåòðîâ")
    xn = InputBox("ââåäèòå õ êîíå÷íîå", "ââîä ïàðàìåòðîâ")
    dx = InputBox("ââåäèòå øàã", "ââîä ïàðàìåòðîâ")
  For x = x0 To xn Step dx
    If x <= 0 Then
    y = Cos(x)
    Else: y = Exp(x) / Sqr(x)
    End If
    Debug.Print y
    Next x
End Sub

Private Sub CommandButton1_Click()
 Dim x0 As Integer, xn As Integer
    Dim dx As Integer, x As Integer, y As Double
    x0 = InputBox("введите х начальное", "ввод параметров", -90)
    xn = InputBox("введите х конечное", "ввод параметров", 360)
    dx = InputBox("введите шаг", "ввод параметров", 10)
  For x = x0 To xn Step dx
  i = i + 1
    If x <= 0 Then
    y = Cos(x * 3.1415926 / 180)
    Else
    t = Sqr(x)
    g = Exp(x)
    y = g / t
    End If
     Cells(i, 1) = x
    Cells(i, 2) = y
    Next x
 
End Sub

dx = Replace(InputBox("введите шаг", "ввод параметров", 10), ",", ".")

Sub aa()
Dim x0 As Integer, xn As Integer
Dim dx As Double, x As Double, y As Double
    x0 = InputBox("введите х начальное", "ввод параметров", -90)
    xn = InputBox("введите х конечное", "ввод параметров", 360)
    dx = InputBox("введите шаг", "ввод параметров", 0.1)
  For x = x0 To xn Step dx
  i = i + 1
    If x <= 0 Then
    y = Cos(x * 3.1415926 / 180)
    Else
    t = Sqr(x)
    g = Exp(x)
    y = g / t
    End If
     Cells(i, 1) = x
    Cells(i, 2) = y
    Next x
End Sub

dx = val(Replace(InputBox("введите шаг", "ввод параметров", 10), ",", "."))