Converter String com iniciais maiúsculas

Olá Galera!

Preciso de uma função para converter todas as iniciais em Maiusculas.

Achei essa função, mas está me apresentando um erro e não consegui enxergar esse erro.

Function maiuscula(str)
MeuArray = Split(str," ")
for i = LBound(MeuArray) to UBound(MeuArray)
resultado = resultado & UCase(LEFT(MeuArray(i),1)) & LCase(RIGHT(MeuArray(i),Len(MeuArray(i))-1)) & " "
next
maiuscula = resultado
End Function

Me apresenta erro no RIGHT...

"Chamada de procedimento ou argumento inválido: 'RIGHT'"

Alguém tem alguma função melhor pra isso?

Eu estou usando MySQL, tenho um form de alteração de dados, mas não sei o porque, ao adicionar ou atualizar, tudo é adicionado em minúsculo... Não tem nenhuma função sendo usado como o LCASE... para transformar pra minúsculo... o que pode ser ?