non devi usare return in vbscript.
Per far restituire un valore alla funzione devi aseggnare il valore direttamente al suo nome. Cioè:

function controlla(stringa)
if stringa <> "" then
stringa= replace(stringa, "*", " ' ")
end if
controlla = stringa
end function


Quel replace cerca nella stringa tutti gli asterischi * e li sostituisce con spazio-apice-spazio ( ' )



-----------------------
Da una perla dal saggio:
Quando non hai capito, devi dire "non ho capito", no che dici che hai capito e invece non hai capito un cavolo. Hai capito?
-----------------------