Сделать Visual Basic

Dim i, j, A(1000, 1000), m, n, rez As Integer
Dim povt As Boolean
 
Private Sub Command1_Click()
m = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê ìàññèâà", "Ñêîëüêî ñòîê â ìàññèâå?")
n = InputBox("Ââåäèòå êîëè÷åñòâî ñòîáëöîâ ìàññèâà", "Ñêîëüêî ñòîáëöîâ â ìàññèâå?")
For i = 1 To m
    For j = 1 To n
        A(i, j) = InputBox("Ââåäèòå " & i & ";" & j & " ýëåìåíò ìàññèâà", "Çàïîëíåíèå ìàññèâà")
    Next j
Next i
End Sub
 
Private Sub Command2_Click()
rez = 0
For i = 1 To m
    povt = False
    For j = 1 To n - 1
        For k = j + 1 To n
            If A(i, j) = A(j, k) Then povt = True
        Next k
    Next j
    If povt = True Then rez = rez + 1
Next i
Print rez
End Sub