Copy a value to Dictionary

Hi,
Can anyone help me on how to add a value to dictionary object.
There is a variable(say VSinput) inside a while wend loop.Its value keeps on changing.
I want to add the VSinput to a new dictionary object.
I dont know how to create a dictionary and use it...But have seen examples.I am not able to understand those.

While (row <= wsFirst.UsedRange.Rows.Count)
        program = intname 
        VSInput = wsFirst.Cells(row, pColFirst("intname")).value
     
' want to create dictionary here.

;;;;;
;;;;
;;;
;;;
wend

This is inside a Class module.

Thanks...