3адача на VB

Dim n As Integer
Dim arr1() As Single, arr2() As Single
n = InputBox("N")
ReDim arr1(1 To n), arr2(1 To n)
For i = 1 To n
arr1(i) = Int(2000 * Rnd + -1000)
arr2(i) = arr1(i)
List1.AddItem arr1(i)
Next i
For i = 1 To n
For j = 1 To n - i
If arr1(j) < arr1(j + 1) Then
temp = arr1(j)
arr1(j) = arr1(j + 1)
arr1(j + 1) = temp
End If
Next j
Next i
For i = 1 To n
If arr2(i) = arr1(3) Then MsgBox i & Chr(13) & arr1(3)
Next i

Dim N As Long
N = InputBox("N")
Dim sum As Single
Do
sum = 0
For i = 1 To Len(CStr(N))
sum = sum + Mid(N, i, 1)
Next i
N = sum
Loop While sum > 9
MsgBox sum

Private Sub Command1_Click()
'Сюда первое
End sub

Private Sub Command2_Click()
'Сюда второй
End sub

Private Sub Command1_Click()
Dim z() As Integer
Dim n As Integer, i As Integer, k As Integer
Dim st As String
 
n = Val(InputBox("количество чисел", , 10))
If n > 3 And n <= 100 Then
ReDim z(n)
Dim r(2001) As String
Randomize
For i = 1 To n
re: z(i) = ((-1) ^ Int(Rnd * 2)) * Int(Rnd * 1001)
If r(z(i) + 1000) = "" Then
r(z(i) + 1000) = i
st = st & z(i) & " ; "
Else
GoTo re
End If
Next i
 
For i = 1 To 2001
  If r(i) <> "" Then
     k = k + 1
        If k = 3 Then
           st = st & vbCrLf & "z(3)min=" & "a(" & _
                CInt(r(i)) & ")=" & i - 1000
          GoTo ex
        End If
  End If
Next i
ex:
MsgBox st
Else
MsgBox "!!!"
End If
End Sub

Private Sub Form_Load()
    Dim s As String, n As Integer
    s = Trim(InputBox("Vvedite n"))
    n = CStr(s)
    If (n Mod 2 = 0) Then
        MsgBox CStr(n) + " chetnoe, " + CStr(Len(s)) + " tsyfr"
    Else
        MsgBox CStr(n) + " nechetnoe, " + CStr(Len(s)) + " tsyfr"
    End If
End Sub