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

'******************************************************************
'------------------Объявление переменных---------------------------
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)