Função que deixa a primeira letra Maiúscula

Preciso de uma função que deixa a primeira letra de cada palavra em maiúsculo.Exemplo:SAO PAULO FUTEBOL CLUBEficará:Sao Paulo Futebol Clubeestou usando esa funçao:Function InicialCap(texto) Dim strTmp, strF, cont if texto<>"" then strTmp = SPLIT(texto, " ") For cont = 0 To UBOUND(strTmp) strF = strF & UCASE(LEFT(strTmp(cont), 1)) & _ LCASE(RIGHT(strTmp(cont), LEN(strTmp(cont))-1)) & " " <<<<<LINHA QUE DÁ ERRO Next : InicialCap = LEFT(strF, LEN(strF)-1) end ifEnd FunctionQuando o campo de um bd é: "Rua Xcs Mbdsd,299 apto 125"Dá o seguinte erro:Erro de tempo de execução do Microsoft VBScript erro '800a0005' Chamada de procedimento ou argumento inválido: 'RIGHT' /cjbj/web/adminx/login/dsp_imprimir_etiquetas.asp, line 8 Alguem poderia me ajudar ??Obrigado pela atençãoHiTech-SPOps..Percebi que o erro é pq tem 2 espaços juntos, alguem teria alguma função para remover 2 ou mais espaços juntos ??