This is a simple string manipulation functionality that is often required.It converts the input string into a proper string (eg., “how are you doing?” will return “How Are You Doing?”).
Below is the function ProperCase that you can add to your bas module:
Public Function ProperCase(ByVal prmText
As String) As String Dim strText As String Dim lngPos As Long Dim lngLen As Long lngLen = Len(prmText) lngPos = 1 strText = prmText Select Case lngLen Case 1 ProperCase = UCase(strText) Case Is > 1 strText = UCase(Left(strText, 1)) &
Right(strText, lngLen - 1) lngPos = 2 While lngPos > 0 lngPos = InStr(lngPos, strText, " ",
vbTextCompare) If lngPos > 0 Then lngPos = lngPos + 1 If lngPos & UCase(Mid(strText,lngPos, 1)) & Right(strText, lngLen - lngPos) Else strText = Left(strText, lngPos - 1)
& UCase(Mid(strText,lngPos, 1)) End If End If Wend ProperCase = strText Case Else ProperCase = "" End Select End Function