Вычислить первые десять членов последовательности - VB

Private Sub CommandButton1_Click()
    Const n As Integer = 10
    Dim i As Integer, A(1 To n) As Single, s As String
    For i = 1 To n
        A(i) = 1 / (i ^ 2 + 3)
        s = s & "A(" & i & ") = " & A(i) & vbCrLf
    Next i
    textbox1.text= s
End Sub