VB 6 Code to read contacts in outlook 2010

I found this code on this site:

what if you wanted this line to be a constant?

Set olFolder = olApp.GetNamespace("MAPI").PickFolder

so you would not have to choose it how would you go about doing that?

Thanks

you can declare olfolder at module level, then it will remain in scope for the duration of the code, you would still need that line somewhere on starting the code running