Вычислить значение выражения

Private Sub Command1_Click()
Dim х_начальное As Double
Dim х_конечное As Double
Dim х_текущее As Double
Dim шаг As Double
Dim значение_функции As Double
 
х_начальное = InputBox("введите х_начальное", "ввод х_начальное", 0)
х_конечное = InputBox("введите х_конечное", "ввод х_конечное", 1)
шаг = InputBox("введите шаг", "ввод шаг", 0.1)
 
If шаг > 0 Then
   
   For х_текущее = х_начальное To х_конечное Step шаг
       значение_функции = х_текущее - х_текущее ^ 3 / 3 + х_текущее ^ 5 / 5
       Print х_текущее; vbTab; Round(значение_функции, 4)
   Next х_текущее
 
Else
   MsgBox "некорректное значение шага!", vbExclamation
End If
End Sub

Imports System.Math
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim х_начальное As Double
        Dim х_конечное As Double
        Dim х_текущее As Double
        Dim шаг As Double
        Dim значение_функции As Double
        Dim S As String = ""
        х_начальное = InputBox("введите х_начальное", "ввод х_начальное", 0)
        х_конечное = InputBox("введите х_конечное", "ввод х_конечное", 1)
        шаг = InputBox("введите шаг", "ввод шаг", 0.1)
        If шаг > 0 Then
            For х_текущее = х_начальное To х_конечное Step шаг
                значение_функции = х_текущее - х_текущее ^ 3 / 3 + х_текущее ^ 5 / 5
                S = S & vbCrLf & х_текущее & "     " & Round(значение_функции, 4)
            Next х_текущее
            MsgBox(S)
        Else
            MsgBox("некорректное значение шага!", vbExclamation)
        End If
    End Sub
End Class