beh, in effetti ti sei resa la vita un bel po' complicata!

decisamente più semplice in questo modo:

codice:
Dim s As String
s = StrConv("questa è una frase di prova",vbProperCase)
in s troverai questo:

Questa È Una Frase Di Prova

Boolean