called sub and variable keeping 1

[wvdba]

i have this code:

call called_sub
msgbox x 
wscript.quit 

sub called_sub
    x = x + 1 
end sub

my problem is that called_sub sets variable's value, but after the call, the calling statement can't recall that variable's value. is there any way to get around this?
thanks.

 

[PHV]

Why not using a function instead ?

Dim x
x = 1
x = called_sub(x)
MsgBox x 
WScript.Quit 

Function called_sub(theParm)
    called_sub = theParm + 1 
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[wvdba]

thanks PHV.
that works perfect.