字典 二维数组

场景：字典Dictionary的keys和items转为二维数组有关问题

字典Dictionary的keys和items转为二维数组问题
Sub ls()
  Dim objDic As New Dictionary
  Dim mm()
  tempArray = Array("aa", "bb", "cc")
  For ii = 0 To UBound(tempArray)
  objDic.Item(tempArray(ii)) = ii
  Next ii
  mm1 = objDic.Keys
  mm2 = objDic.Items
  With objDic
  ReDim mm(.Count - 1, 1)
  For ii = 0 To .Count - 1
  Debug.Print .Keys(ii), .Items(ii)
  mm(ii, 0) = .Keys(ii)
  mm(ii, 1) = .Items(ii)
  Next ii
  End With
End Sub
要是转为数组,按其功能只能转为二个一维数组
  mm = objDic.Keys
  mm1 = objDic.Items
问要将其转为二维数组只能用编程方法吗?
  For ii = 0 To .Count - 1
  mm(ii, 0) = .Keys(ii)
  mm(ii, 1) = .Items(ii)
  Next ii


------解决方案--------------------
好象没有别的方法