Function to return 2 arrays as output

For completeness:

Function testArr(MyArr As Variant) As Variant

    Dim arr(1)
    Dim temp(1 To 3, 1 To 2) As Variant
    
    arr(0) = temp
    arr(1) = temp
    
    For i = 1 To 3
        For j = 1 To 2
            arr(0)(i, j) = MyArr(i, j) + 1
            arr(1)(i, j) = MyArr(i, j) + 2
        Next j
    Next i

    testArr = arr
End Function