La funcion Join según recuerdo lo que hace es "juntar" los elementos de un arreglo separados por el carácter que tu le indiques.
Ahora lo que quieres hacer lo haces de la siguiente manera:
Código:
tit = Replace ( NewRS("Titulo"), '*', ' ')
La sentencia
SET, sólo se ocupa en la asignación de objetos, no de variables.