Visual Basic - poner en mayuscula la primera letra de una palabra

Sub nombres()

Largo=Len(Range(“A1))

‘Si están en mayúsculas las convertimos en minúsculas

mom=Lcase(Range(“A1”)

Convertimos la primera letra en mayúscula de la primera palabra

Nombre=Ucase(Left(nom,1)&Rihgt(mom,largo-1)

For j=2 to largo-1

   If Mid(nombre,j-1)=“ “ Then

       nombre=Left(nombre,j) & Ucsse(mid (nombres+1,1)) & Right (nombre,largo-j-1)

   Enf if

Next j

Range (“A1”)=nombre

txtListillo ="Soy un listillo"

txtResultado = StrConv(txtListillo, vbProperCase)