Private Sub Command1_Click()
Dim a(8, 8) As Integer
For i = 1 To 8
For j = 1 To 8
a(i, j) = -5 * (i >= j)
Debug.Print a(i, j);
Next j
Debug.Print
Next i
End Sub
