Looping through dictionary items where items are an array

I am adding dictionary items like this:

dic.Add Key, Array(Item2, Item2)

And am trying to loop through just the first set of items in the array, but am having trouble doing so.

I have tried the following but to no avail:

For Each z In dic.Items
        z = dic.Item(0)
        If z = "Test" Then
            x = x + 1
         End If
  Next z

and

For i = 0 To UBound(dic.Keys)
        If dic.Item(dic.Keys(i))(0) = "Test" Then
            y = y + 1
        End If
    Next

Thanks in advance