Redim preserve - subscript out of range error

See more:

VBA

hello everybody. i m struggling again with dynamic array.
below my code

Function ContaArticoli(DriveIn As Range, SLOT As String) As Variant()
Dim elemento As Variant, contElemento As Integer, ArrProvvisorio() As Variant
Dim i As Byte, contRigheArray As Integer

Dim Prodotti As Variant
Prodotti = Array("A", "B", "C", "D")

contElemento = 0
contRigheArray = 0
    For i = 0 To 3
        For Each elemento In DriveIn   'per ogni articolo nel drive in
            If elemento = Prodotti(i) Then ' se elemento è = al prodotto (i)
                contElemento = contElemento + 1
            End If
        Next
            Stop
'            Debug.Print LBound(ArrProvvisorio)
'            Debug.Print UBound(ArrProvvisorio)
            ReDim Preserve ArrProvvisorio(contRigheArray, 2)  ' contRigheArray
            ArrProvvisorio(contRigheArray, 0) = SLOT
                Debug.Print ArrProvvisorio(contRigheArray, 0)
            ArrProvvisorio(contRigheArray, 1) = Prodotti(i)
                Debug.Print ArrProvvisorio(contRigheArray, 1)
            ArrProvvisorio(contRigheArray, 2) = contElemento
                Debug.Print ArrProvvisorio(contRigheArray, 2)
            contElemento = 0 'azzero contatore
            contRigheArray = contRigheArray + 1
    Next i

End Function

when loop i from 0 shift to 1, it retunrs error.

What I have tried:

i tried to specify the array sizes upon data type dim , ArrProvvisorio(0 to 0 , 0 to 2) after to be dinamically changed thgrough redim preserve command