Протабулировать функцию

Private Sub Command1_Click()
Dim x As Single, y As Single
Dim xN As Single, xK As Single, h As Single
Dim Sum, count, answer
xN = InputBox("Na4alo")
xK = InputBox("Konec")
h = InputBox(1)
answer = ""
If xN > xK And h > 0 Then MsgBox "error"
If xN < xK And h < 0 Then MsgBox "error"
If h = 0 Then MsgBox "error"
If h > Abs(xK - xN) Then MsgBox "error"
For x = xN To xK Step h
'y = Exp(Sin(x)) + ((xN + x) / (Log(x) ^ 3 * xK * x)) ^ (1 / 4) <---- вычисление y. 
answer = answer & x & Space(10) & y & Chr(13)
If y > 5 Then count = count + 1: Sum = Sum + y
Next x
If count = 0 Then MsgBox "Net >5" Else Sum = Sum / count
MsgBox answer & Chr(13) & Chr(13) & Sum
End Sub

Private Sub Command1_Click()
Dim x As Single, y As Single
Dim Sum, count, answer
Const xN = 5.5
Const xK = 10.5
Const h = 0.36
Const a = 17.3
Const b = 0.36
answer = ""
For x = xN To xK Step h
y = (Exp(Sin(x)) + (a + x) ^ (1 / 4)) / (Log(b * x) ^ 3)
answer = answer & x & Space(10) & y & Chr(13)
If y > 5 Then count = count + 1: Sum = Sum + y
Next x
If count = 0 Then MsgBox "Net >5" Else Sum = Sum / count
MsgBox answer & Chr(13) & Chr(13) & Sum
End Sub

Private Sub CommandButton1_Click()
'...
Dim x As Single, y As Single
Dim Sum, count, answer
Const xN = 5.5
Const xK = 10.5
Const h = 0.36
Const a = 17.3
Const b = 0.36
answer = ""
For x = xN To xK Step h
y = (Exp(Sin(x)) + (a + x) ^ (1 / 4)) / (Log(b * x) ^ 3)
answer = answer & x & Space(10) & y & Chr(13)
If y > 5 Then count = count + 1: Sum = Sum + y
Next x
If count = 0 Then MsgBox "Net >5" Else Sum = Sum / count
MsgBox answer & Chr(13) & Chr(13) & Sum
End Sub
Private Sub CommandButton2_Click()
    TextBox1.Text = ""
    TextBox2.Text = ""
End Sub
 
Private Sub CommandButton3_Click()
    End
End Sub
 
 
Private Sub UserForm_Click()
 
End Sub

MsgBox answer & Chr(13) & Chr(13) & Sum

TextBox2 = answer & Chr(13) & Chr(13) & Sum