MS Access: Simple Proper Case Function

"+" used to preserve code indention, replace with spaces or tabs...

Function ProperCase(strAnyText As String) As String
' RETURN TEXT IN PROPER CASE.

Dim intCounter As Integer
Dim strOneChar As String

If IsNull(strAnyText) Then
++++Exit Function
End If

' FIRST CONVERT TO INITIAL CAP, FOLLOWED BY ALL LOWERCASE.
strAnyText = UCase$(Left$(strAnyText, 1)) & LCase$(Mid$(strAnyText, 2, 255))

' LOOK AT EACH CHARACTER, STARTING AT THE SECOND CHARACTER.
For intCounter = 2 To Len(strAnyText)
++++strOneChar = Mid$(strAnyText, intCounter, 1)
++++' IF CURRENT CHARACTER (ONECHAR) IS A SPACE OR HYPHEN...
++++If strOneChar = " " Or strOneChar = "-" Or strOneChar = "/" Then
++++++++'...CONVERT THE CHARACTER AFTER SPACE/HYPHEN TO UPPERCASE.
++++++++strAnyText = Left$(strAnyText, intCounter) & UCase$(Mid$(strAnyText, intCounter + 1, 1)) & Mid$(strAnyText, intCounter + 2, 255)
++++End If
Next

ProperCase = strAnyText

End Function