Multiple and variant item of dictionary

I Want to save item multiple item in one key
1. as value
2. as range (union range)
3.as number
IS Posible to save multiple variant typename of item from each key

 Sub bb()
 Dim d As Object, i&, ii&, j&, sn, k, Q
 sn = [a1:b6].Value
 Set d = CreateObject("scripting.dictionary")
 For i = 1 To UBound(sn)
   k = sn(i, 1) & sn(i, 2)
     If Not d.exists(k) Then
 
          d.Add k, Array(sn(i, 1), Cells(i, 1), 1)
     Else
          Q = d(k)
          Q(0) = Q(0) & "," & sn(i, 1)
          Q(1) = Union(Q(1), Cells(i, 1))
          Q(2) = Q(2) + 1
          d(k) = Q
     End If
 Next i
For Each ky In d
    If d(ky)(2) = 1 Then
      d.Remove ky
    End If
Next ky

For Each e In d.keys
    MsgBox d(e)(0)   ' this OK
    MsgBox d(e)(1)   ' THIS IS ERROR PLEASE HELP ME
Next e
End Sub