How to return a value from Sub in QTP

There is no direct way to return a value from sub in QTP.
But you can pass the value by reference to sub and this way process it.

Example

b=10
call mysub(b)
print b                ' a will be 20 now.

Sub mysub(byref c)

c = 20

End Sub