Dim A() As Integer
Dim CountN, i As Integer
Private Sub Command1_Click()
Dim A() As Integer
Dim Count, i As Integer
Count = Val(InputBox("Count of number:"))
ReDim A(1 To Count)
For i = 1 To Count
    A(i) = Val(InputBox("Enter number " & i & ":"))
Next i
For i = 1 To Count
    If A(i) Mod 2 = 0 Then Print A(i)
Next i
End Sub

Private Sub Command2_Click()
'get number
CountN = Val(InputBox("Count of number:"))
ReDim A(1 To CountN)
For i = 1 To CountN
    A(i) = Val(InputBox("Enter number " & i & ":"))
Next i
End Sub
Private Sub Command3_Click()
'serach
Dim x As Integer
x = Val(Text1.Text)
Dim Low, Mid, Top As Integer
Low = 1
Top = UBound(A)
Do While (Low <= Top)
    Mid = Fix((Top + Low) / 2)
    If x < A(Mid) Then
        Top = Mid - 1
    ElseIf x > A(Mid) Then
        Low = Mid + 1
    Else
        Print "True"
        Exit Sub
    End If
Loop
Print "false"
End Sub