se faccio così ... mi dice tipo non corrispondente!!

e dai help!!!

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

f = 0
For i = 1 To 3
For j = 1 To 8
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