Tempo fa mi ero fatto una funzioncina per mettere la prima lettera di una variabile maiuscola...

Function prima(stringa)
prima = ucase(left(stringa,1)) & lcase(right(stringa,len(stringa)-1))
End Function


Dovrei leggermente modificarla per rendere maiuscola la prima lettera di ogni parola dopo uno spazio.....


Un aiutino?