Создать форму для вычисления значений функции на заданном интервале (а,b) с заданным шагом h

Public Sub slovo()
Dim a, text, answ, char As Variant
text = InputBox("text")
a = Split(text, " ")
For i = 0 To UBound(a)
For j = 1 To Len(a(i))
char = Mid(a(i), j, 1)
If char = "n" Then
answ = answ & i + 1 & " "
Exit For
End If
Next j
Next i
MsgBox answ
End Sub

Private Sub CommandButton1_Click()
 
Dim B() As Integer, n As Integer, m As Integer, i As Integer, j As Integer
Dim Max As Integer, Min As Integer, z As Integer, v As Integer
n = InputBox("Введите число строк", , 9)
m = InputBox("Введите число столбцов", , 7)
Cells.Clear
ReDim B(n, m)
Max = -1000: Min = 900
Randomize
For i = 1 To n
For j = 1 To m
B(i, j) = Rnd() * 100 - 50
Cells(i + 1, j + 1) = B(i, j)
 
If B(i, j) < 0 Then
 
If Max < B(i, j) Then
Max = B(i, j)
End If
Else
If Min > B(i, j) Then
Min = B(i, j)
End If
End If
 
Next
Next
 
Cells(i + 3, 2) = "Максимальный среди отрицательных " & Max
Cells(i + 4, 2) = "Минимальный среди положительных " & Min
 
End Sub

Private Sub CommandButton1_Click()
Dim a As Single, b As Single, h As Single, n As Integer
Cells.Clear
a = TextBox1.Text
b = TextBox2.Text
h = CSng(TextBox3.Text)
n = CInt((b - a) / h)
x = a
For i = 1 To n
x = x + h
Cells(i + 1, 2) = x
y = x * x
Cells(i + 1, 3) = y
Next
End Sub