you should be able to pass a parameter on the command line using dtsrun utility and the \A switch.

Within the vb/activex code you reference the global variable like

globalvar = DTSGlobalVariables("yourparmhere").value

Here's an article on running a DTS package from command line:

http://www.mssqltips.com/tip.asp?tip=1007