Нужно сделать из вложенного массива простой - VB

 Private Sub Command1_Click()
Dim m As Long, i As Long, k As Long, Y As Double, P As Double
P = 1
Y = 0
If IsNumeric(Text1) = True Then
m = Text1.Text
Else
MsgBox "Введіть число", vbCritical, "Помилка"
Text1.Text = ""
Text1.SetFocus
End If
For k = 1 To m
   For i = 1 To k
   P = P * (i + 1) / (i ^ 2 - 1 / 2)
   Next i
   Y = Y + P
Next k
Text2.Text = Y
End Sub