I'm trying to create a tool that values various stock option
positions. I want to read in option values (the strike and cost) and
pass that information into prodcedures that calculate and graph the
payoff.

I'm having trouble passing the information from procedure to
procedure. A bit of pseudo-code might help:

Sub BullSpread()
GetPrices(strike1,strike2,cost1,cost2)
if strike1<shareprice then
blah blah
endif
.....
end sub

sub getprices()
strike1=range("A1")
strike2=range("B1")
......
end sub

I can't seem to get the GetPrices routine to pass the bits of info -
debugging shows the variables as "empty". I can't seem to figure out
what goes in the parentheses when calling/returning.

Thanks for any help.