Что не так в программном коде ?

Private Sub cmdrun_Click()
Dim n As Integer
Dim i As Integer
Dim y() As Integer
Dim z As Single
txty.Text = ""
 
n = InputBox("n=")
ReDim y(n) As Integer
 
For i = 1 To n
y(i) = InputBox("y=" & CStr(i))
 
txty.Text = txty.Text & CStr(y(i)) & ", "
 
Next i
 
For i = 1 To n
If Abs(y(i)) > 1 Then
z(i) = y(i)
Else
z(i) = 2
Next i
 
Min = Abs(z(1))
 
For i = 2 To n
If z(i) < Min Then
Min = Abs(z(i))
End If
Next n
 
For i = 1 To n
Print z(i)
Next i
End Sub

Private Sub cmdrun_Click()
Dim n As Integer
Dim i As Integer
Dim y() As Integer
Dim z() As Single
txty.Text = ""
 
n = InputBox("n=")
ReDim y(1 to n) As Integer, z(1 to n)

Next i

Option Explicit
Private Sub cmdrun_Click()
   Dim n As Integer
   Dim i As Integer
   Dim y() As Integer
   Dim z() As Single
   Dim min As Single
   txty.Text = ""
   txtz.Text = ""
   Randomize
   
   n = InputBox("n =", "n", 5)
   ReDim y(1 To n) As Integer, z(1 To n)
 
   For i = 1 To n
     y(i) = InputBox("y(" & CStr(i) & ") =", "", Int(Rnd * 21 - 10))
     txty.Text = txty.Text & CStr(y(i)) & ", "
   Next i
 
   For i = 1 To n
      If Abs(y(i)) > 1 Then z(i) = y(i) Else z(i) = 2
   Next i
 
   min = Abs(z(1))
   For i = 2 To n
       If Abs(z(i)) < min Then min = Abs(z(i))
   Next i
 
   For i = 1 To n
      txtz.Text = txtz.Text & CStr(z(i)) & ", "
   Next i
   txtz.Text = txtz.Text & "   min = " & min
End Sub