Есть программа,нужно ввод осуществить через массив text box , вывод на другой форме - VB

Option Explicit
Function Arcsin(X As Single) As Single
Arcsin = Atn(X / Sqr(-X * X + 1))
End Function
 
Private Sub Command1_Click()
Dim a As Variant
Dim an As Single
Dim y As Single
Dim n As Integer
Dim i As Integer
Dim z As Single
 
a = Array(0.1, 0.3, 0.5, 0.7, 0.9, 1, 1.25, 1.5, 1.75, 2)
y = 0
n = 0
Do
n = n + 1
 
an = (Arcsin(1 / (2 * n))) / (2 ^ n)
y = y + an
Loop While (Abs(an) > 0.000001 And n <= 10)
 
Print
Print "---------------------> y = "; y, "Количество итераций:"; n
Print
For i = 0 To UBound(a)
If a(i) < 1 Then
z = (a(i) * y) ^ 2
Else
z = Sqr(a(i) * y)
End If
Print "a = "; a(i), " z ="; z
Next
End Sub