ASP - Función: nombre y apellid con la inicial mayuscula

Necesito una funcion que me convierta la entrada de nobre y apellidos para que esté correctamente.por ejemplo:
carlos garcia garcia convertido a Carlos Garcia Garcia

Ya me contesto yo mismo. He logrado hacerlo. Si a alguien le sirve, aqui esta:
private function corrigenombre(nombre)
variable = nombre
'response.write variable & "<BR>"
Q = Len(variable)
'response.write Q & "<BR>"
variable = Ucase(Left(variable,1)) & Right(variable,Q-1)
'response.write Q & "<BR>"
For inicio = 0 to Q-1
caracter = Mid(variable,Q-inicio,1)
if caracter =" " then
nuevacadena = caracter & Ucase(Left(nuevacadena,1)) & Right(nuevacadena,Len(nuevacadena)-1)
else
nuevacadena = caracter & nuevacadena
end if
next
corrigenombre=nuevacadena
end function