Работа с массивом - VB

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

День добрый , подскажите пожалуйста , правильно ли я составил массив и присвоил ему значение, для проверки массив вывожу на Debug.Print , он выводится , но не уверен что я сделал это правильно, код прилагаю:

                    Листинг программы
                
 
                        
                          
                    
'******************************************************************
'------------------Объявление переменных---------------------------
Dim A As Byte, B As Byte, C As Byte  ' Переменные для инкремента
Dim Massiv(0 To 2) As Integer ' Переменная для массива
Dim I As Integer, J As Integer, L As Integer ' Переменные для цикла
 
'******************************************************************
'------------------Объявление кнопки №1----------------------------
Private Sub Command1_Click()
Do 'Делать
      A = A + 1 ' Инкремент переменной "A"
Loop While N >= 255 'До тех пор пока выполнится условие
Text1.Text = A ' Выводим на табло значение переменной
For I = 0 To 2: Massiv(I) = I: Next
Massiv(0) = A 'Присваиваем массиву(0) значение "A"
Debug.Print Massiv(0) ' Выводим значение массива(0)

Решение задачи: «Работа с массивом»

textual
                            Листинг программы 
                        
Loop While N >= 255 'До тех пор пока выполнится условие