Array Item used correctly

[snb]

You will have to put the values into the dictionary first

b = ActiveSheet.Range("J2:L9").Value 
with createobject("scripting.dictionary")
  For i = 1 To UBound(b, 1) 
    .item(b(i,1))=application.index(b,i)
  Next
  msgbox join(.item()(3))
End With