codice:
dim str1 as string = "a"
dim str2 as string = "b"
dim str3 as string = "c"

dim ret as boolean = funzione(str1,str2,str3) 

if ret then
  response.write(str3)
else
  'errore
end if


public function funzione(....,ByRef str3 as string) as boolean
    str3= "ciao"
    return true
end function
strano, forse ti perdi il valore dentro alla funzione