utilizacion de scripting dictionary

asi es como se utiliza un scripting dictionary
If listColumns.Count <> 0 Then
colsKeys = listColumns.Keys
colsItems = listColumns.Items
For cont = 0 To listColumns.Count -1
If InStr(colsKeys(cont),"NADA")=0 Then
response.write colsKeys(cont) & " " & colsKeys(items)
End If
Next
End If