Consider incorporating the StrConv() function. Here are a couple of examples from the debug window.
x = "rectory road"
? StrConv(x,vbProperCase)
Rectory Road
? StrCconv(x,3)
Rectory Road
To find the integer equivalent for vbProperCase, while in the debug window highlight "vbProperCase", click on View > Definition.