Заполнение двухмерного массива А(N,M) числами в диапазоне [-99,99] - VB

Option Explicit
 
Private Sub Form_Load()
    Dim N As Integer, M As Integer, X As Integer, Y As Integer, _
        Summa As Integer, Count As Integer
    Dim A() As Integer
    Me.AutoRedraw = True
    Randomize Timer
    N = InputBox("Введите N:")
    M = InputBox("Введите M:")
    ReDim A(1 To N, 1 To M)
    Me.Print "Исходный массив:"
    For Y = 1 To M
        For X = 1 To N
            A(X, Y) = Int(Rnd * 199) - 99
            Me.Print A(X, Y); ", ";
            If A(X, Y) Mod (X + Y) = 0 Then
                Summa = Summa + A(X, Y)
                Count = Count + 1
            End If
        Next X
        Me.Print
    Next Y
    Me.Print "Количество искомых элементов: "; Count
    Me.Print "Сумма искомых элементов: "; Summa
End Sub