Capitalization of Text in Street Address

[MarkA70]

For the text capitalization issues the following works great, of course:

Me.FirstName = StrConv(FirstName, vbProperCase)

However, it does not work on an entry like 111 main st. I would like to be able to capitalize the Main an St. text. How's the best way, Thanks!

 

[jdraw]

Which part doesn't work as expected?

Sub testalq()
Dim s As String: s = "111 main st., hometown, mystate"
Debug.Print StrConv(s, vbProperCase)

End Sub

Result:

111 Main St., Hometown, Mystate

 

[MarkA70]

jdraw: That does not seem to work, it skips all text after the numbers. Thanks!

 

[jdraw]

Interesting. I tested it and showed the result???

 

[MarkA70]

I am an idiot, it do work, sorry, long day.