first diclare veriable in note pade and save in vbs file
after that go to new qtp program 
use the publec ffunction
end function satement  go to test resoruses and add 
librarey file run the frogram