Создание массива в VB

Dim Mass (,)  As Integer
Dim X As Integer
Dim Y As Integer
 
Redim Mass (4,4) ' по скольку отчет с 0 получается 5 пар
 
For X = 0 To 4
For Y = 0 To 4
            Mass(X,Y) = 1+X+Y ' заполняем для теста числами    
Next Y
Next X
 
For X = 0 To 4
For Y = 0 To 4
            if Mass(X,Y) = 2 Then
            Msgbox "Значение найдено, координаты:     " & "X" & "  " & X & "   " & "Y" & "   " &  Y
            End if 'Если равно то вывести окно с сообщением
Next Y
Next X

Dim Mass (,)  As Integer
Dim X As Integer
Dim Y As Integer
Dim i As Integer
 
Redim Mass (4,4) ' по скольку отчет с 0 получается 5 пар
i = 0
 
For X = 0 To 4
For Y = 0 To 4
            Mass(X,Y) = 1+X+Y ' заполняем для теста числами    
Next Y
Next X
 
For X = 0 To 4
For Y = 0 To 4
            if Mass(X,Y) = 2 Then
            i = i+1
            End if 'Если равно то увеличиваем переменную на единицу
Next Y
Next X
 
MsgBox i ' выводим значение i

Dim Mass& (,)  
Dim X&
Dim Y&
Dim i&
 
ReDim Mass (1 To 5, 1 To 2) 
 
i = 0
 
For X = 1 To 5
For Y = 1 To 2
            Mass(X,Y) = X+Y ' заполняем для теста числами    
Next Y
Next X
 
For X = 1 To 5
For Y = 1 To 2
            if Mass(X,Y) = 2 Then
            i = i+1
            End if 'Если равно то увеличиваем переменную на единицу
Next Y
Next X
 
MsgBox i ' выводим значение i

Mass(X,Y) = X+Y

Mass(X,Y) = Rnd() * 10 - 10