How to get the input value from .vbs file to QTP Script?

[Uma]

Hi,
I have a.Vbs file,here i am having input box

Code:

fav-env=inputbox("enter ur enviorn...")
if fav-env=A then
open link
elseif ....
open second link....

endif

I call this procedure in Qtp Script using the command
Call mainentra

Now I need this fav-env value for furthur functionality test.I want to keep this as for input parameter.How to store this value in to my QTp Script?
Any help?
Thank you,
Uma