Sub parameter passing

[miek]

Is this the proper way to pass a varible parameter to and back from
subroutines?
My code seems a little sloppy, I would think that I'm missing some
delclaration

The subroutine "Orig_WS_name" is call with the following statement:
Call Sub Orig_WS_name("orig_name")

Private Sub Orig_WS_name(WSIn As String)
'WSIn has the value of "orig_name") prior to call
Call Add_WSname_Chars(WSIn)
'WSIn has the value of "orig_name-textadded") after call
End Sub

Private Sub Add_WSname_Chars(WS_name As String)
WS_name = WS_name & "-txt added"
End Sub

 

[Bob Phillips]

If you want to pass the changed value back up, declare the argument Byref
(the default). If youy want it passed back in its original state, declare it
Byval.


Call Orig_WS_name("orig_name")

Private Sub Orig_WS_name(ByVal WSIn As String)
MsgBox WSIn
Call Add_WSname_Chars(WSIn)
MsgBox WSIn
End Sub

Private Sub Add_WSname_Chars(ByRef WS_name As String)
WS_name = WS_name & "-txt added"
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[miek]

Thanks for your help, it is much apprecated

If you want to pass the changed value back up, declare the argument Byref
(the default). If youy want it passed back in its original state, declare it
Byval.


Call Orig_WS_name("orig_name")

Private Sub Orig_WS_name(ByVal WSIn As String)
MsgBox WSIn
Call Add_WSname_Chars(WSIn)
MsgBox WSIn
End Sub

Private Sub Add_WSname_Chars(ByRef WS_name As String)
WS_name = WS_name & "-txt added"
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)