alguna función para capitalizar frases.

como Capitalizar frases
me gustaria una funcion para capitalizar frases.

De momento con esta me capitaliza la primera palabra de la frase:
Function Capital(str)
Capital=Ucase(left(str,1)) & Lcase(mid(str,2))
End function

pero me interesaria que por ejemplo si le paso la frase:
"JUAN SIN MIEDO" me devuelva "Juan Sin Miedo"
o si le paso "MADRID(ESPAÑA)" me devuelva "Madrid(España)"

asi que ademas de los espacios en blanco deberia detectar caracteres tipo -.,:+() para capitalizar la letra siguiente.


gracias