Запросить у пользователя диапазон изменения аргумента функции - VB

Option Explicit
Dim y As Single
Dim x As Single
Dim Min As Integer
Dim Max As Integer
Dim Shag As Single
 
Private Sub Command1_Click()
    Min = InputBox("Введите нижнюю границу диапозона изменения переменной x")
    Max = InputBox("Введите верхнюю границу диапозона изменения переменной x")
    Shag = InputBox("Введите шаг изменения переменной x")
    
    Print "x = ",                   'запятая необходима для того чтобы не перескакивала печать на новую строку
    For x = Min To Max Step Shag
        Print Format(x, "0.00"),    'тут можно регулировать точность вывода
    Next x
    Print
    Print "y = ",
    For x = Min To Max Step Shag
        y = 2 * x ^ 2
        Print Format(y, "0.00"),
    Next x
End Sub