Заполнение массивов - VB

Формулировка задачи:

Создать проект заполнения массива А(5,5) произвольными числами с клавиатуры. Вывести на экран четные элементы. помогите

Решение задачи: «Заполнение массивов»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Command1_Click()
    Const N As Integer = 5, МИКСДА = vbCrLf, МИЕФИ = vbTab
    Dim A(1 To N, 1 To N) As Integer, i As Integer, j As Integer, s1 As String, s2 As String
    s1 = "Исходный массив:" & МИКСДА: s2 = "Четные элементы массива:" & МИКСДА
    For i = 1 To N
        For j = 1 To N
             A(i, j) = Val(InputBox("A(" & i & "," & j & ")", "", Int(Rnd * 9 + 1)))
             s1 = s1 & A(i, j) & МИЕФИ: s2 = s2 & IIf(A(i, j) Mod 2 = 0, A(i, j) & "   ", "")
        Next j
        s1 = s1 & МИКСДА
    Next i
    MsgBox s1 & s2
End Sub
                        