l'errore c'è ancora ... sigh!1

Dim Matrice() As Integer
Private Sub Command1_Click()
If (v = 5) And (r = 3) Then
ReDim Matrice(3, 8) As Integer
End If

f = 0
For i = 1 To 3
For j = 1 To 8
è qui --> Matrice(i, j) = a(f)
f = f + 1
Next
Next

For i = 1 To 3
For j = 1 To 8
Print Matrice(i, j)
Next
Next
End Sub