Возникает ошибка при работе с массивом "Sub or Function not defined" - VB

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

Задали курсовик в Vb. Есть готовый код но он не работает, выдаёт ошибку "Sub or Function not defined" код:

Dim X(4, 4) As Double, a() As Double, i As Integer, j As Integer
Option Explicit
 
Private Sub Command1_Click() 'Ввод массива
Dim k As Integer
a = Array(8.1, 3, 2, 6, 11, 5, 3, 7.7, 7.2, 2, 4, 9.5, 5, 5, 3, 2.9)
k = 0
For i = 1 To 4
For j = 1 To 4
 X(i, j) = Г*(k)
 k = k + 1
Next
Next
Print "Ввод массива"
 
End Sub

Решение задачи: «Возникает ошибка при работе с массивом "Sub or Function not defined"»

textual
                            Листинг программы 
                        

                            Private Sub Command2_Click() 'Вывод массива на форму
Dim X(1 To 3, 1 To 3) As Double, i As Integer, j As Integer
Print
Print "Двухмерный массив X()"
For i = 1 To 3
For j = 1 To 3
Print X(i, j);
Next
Print
Next
 
End Sub
                        