Option Explicit

Function Matrica()
Dim a()
Dim I, N As Integer

For I = 1 To 5
   For N = 1 To 5
   
   ReDim a(I, N)
   Next N
Next I
End Function