'VB Code : [Project=prjParam;Class=clsParam]
'By default,the parameter is passed 'ByRef'

Sub x( a as string )
   a = "Changed"
End Sub 

'ASP Code
k = "Hello"

'Create the above VB object

Set obj = Server.CreateObject("prjParam.clsParam")

obj.x k        'Type Mismatch error occurs

obj.x (k)      'Using PARANTHESIS forces 'ByVal','k' does not change

Call obj.x (k) 'Type Mismatch error occurs

Call obj.x cstr(k)   'The CSTR function returns a string,'the address of the variable (k) is not passed.
                     'The value of 'k' doesn't change

Set obj = Nothing
				

'VB Code : [Project=prjParam;Class=clsParam]
'If you do not specify,by default the parameter is passed 'ByRef'
'Note: Parameter type is VARIANT

Sub y( a as variant )
   a = "Changed"
End Sub

'ASP Code
k = "Hello"

'Create the above VB object

Set obj = Server.CreateObject("prjParam.clsParam")

obj.y k        'changes 'k'

obj.y (k)      'Using PARANTHESIS forces 'ByVal','k' doesn't change

Call obj.y (k) 'changes 'k'

Set obj = Nothing