Заполнить массив A(5,5) произвольными символами с клавиатуры, вывести на экран четные - VB

Dim I(4, 4) As String 'Массив
 
Private Sub Start() 'Запись
Dim U As Integer, o As Integer, Ch As String * 1, Cd As Integer
For U = 0 To 4
For o = 0 To 4
1
Randomize
Cd = 90 - 65 ' ÍåïîìГ*Гѕ âåðõГ*ГЁГ© ïðèäåë
Cd = (Rnd * Cd) - -65
If Cd / 2 <> Fix(Cd / 2) Then GoTo 1
I(U, o) = Chr(Cd)
Next o
Next U
End Sub
 
Private Sub Form_Load()
Start
For U = 0 To 4
For o = 0 To 4
l = l & I(U, o)
Next o
m = m & l & Chr(13) & Chr(10)
l = ""
Next U
MsgBox m
End Sub