You can pass information in the arguments going in both directions if they
are passed byref

Sub Sub1()
myval = 3
othersub myval, someval
msgbox myval & " - " & someval
End sub

Sub Othersub( abc, someval)
abc = abc^abc
someval = "STUV"
End Sub


--
Regards,
Tom Ogilvy


"KM" wrote in message
...
Hi,
Calling sub won't help because sub procedures only carry
out commands, functions on the other return values.

So use something like

Public Function fncStrLen(strData as string) as Long
fncStrLen = Len(strData)
End Function

put the following in your debug window and press return

fncStrLen("abcde")

rsult being 5

regards
KM

For more information double click on Function to highlight
it and press F1 for help.
-----Original Message-----
How do I call subprograms from other programs...and pass
information back and forth.

Thanks
chuck
.