Dictionary value of key from another array - arrays

Question

This has been answered... have to wait 2 days to accept own answer
Background:
I have an array ("arr") generated from a dataset in Excel; I use that array to populate another array ("zrr"), where one aspect of that population is to use a Dictionary ("dcdept").
The dictionary was populated appropriately (tested via debug.print dcdept(ActualKey); was populated such that dcdept(4000)="Value" and tested debug.print dcdept(4000) printed the word "Value" in the immediate window.
I was originally using the source dataset via .cells(i,) references, but with several hundred thousand lines, I tried to keep activities in VBA to speed it up.
There are no errors/alerts generated from my code.
Issue:
When attempting to populate an element in zrr (zrr(i-1,3)) using the dictionary key from arr (dcdept(arr(i-2,16))), I get no value output.
Question:
Does anyone have any suggestions/solutions to resolve the issue with the given data?
Code in question:
Public arr As Variant, brr As Variant, crr As Variant, drr As Variant, lrs As Long
Private Sub changes()
Dim i As Long, x As Long, y As String, z As String, dcdept As Scripting.Dictionary, zrr As Variant, a As Long
'set-up dictionary for department
Set dcdept = New Scripting.Dictionary
dcdept(4000) = "Value"
'generate array to store new values
With Sheets("Conversion")
.Columns(16).NumberFormat = "0"
lrs = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range(.Cells(2, 1), .Cells(lrs, 17)).Value '17 = Q
ReDim zrr(lrs, 4)
For i = 2 To lrs
ReDim Preserve zrr(lrs, 4)
Select Case Left(arr(i - 1, 17), 3)
Case "QTE"
x = 7
Case "ZNA"
x = 5
End Select
zrr(i - 2, 0) = Right(arr(i - 1, 17), x)
If InStr(arr(i - 1, 9), " Milestone ") Then
y = Left(arr(i - 1, 9), 2) & " " & arr(i - 1, 10)
Else
y = arr(i - 1, 9) & " " & arr(i - 1, 10)
End If
zrr(i - 2, 1) = y
If IsEmpty(arr(i - 1, 14)) Then
zrr(i - 2, 2) = "N"
Else
zrr(i - 2, 2) = "Y"
End If
a = Val(arr(i - 1, 16))
z = dcdept(a)
zrr(i - 2, 3) = z
Debug.Print a
Debug.Print z
Next i
'append data to sheet
.Cells(2, "R").Resize(lrs, 3).Value = zrr 'SHOULD BE Resize(lrs,4), per answer
End With
End Sub

Answer 1

OK this is not an answer, but an illustration of my comment. I didn't expect this to happen. I set up a simple scenario which I hope is similar to yours:
Sub x()
Dim oDic As Object, v1(1 To 2), v2(1 To 2), v, i As Long
Set oDic = CreateObject("Scripting.Dictionary")
v1(1) = "Fred"
v1(2) = 1000
oDic(1) = v1(1) 'key 1, item "Fred
oDic(2) = v1(2) 'key 2, item 1000
The locals window after this looks like this
Then add this line
v2(1) = oDic(v1(1))
and the immediate window reads thus:
Add this line
v2(2) = oDic(v1(2))
and the immediate window reads thus:

Answer 2

I'm an idiot...
.Cells(2, "R").Resize(lrs, 3).Value = zrr
should be
.Cells(2, "R").Resize(lrs, 4).Value = zrr
Can't accept my own answer for 2 days; pardon the "unanswered" question in the meantime.