Option Explicit
Private Sub Command1_Click()
Dim a(6) As Integer
Dim i As Integer
For i = 0 To 6
a(i) = Val(InputBox("Enter Array elements"))
Next i
For i = 0 To 6
If a(i) Mod 2 = 0 Then
Print "Even No : " & a(i)
Else
Print "Odd No: " &a(i)
End If
Next
End Sub