Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function CapitalizeBeforeToken(ByVal sInText As String, sTokenChar As String) As String
Dim sOutText As String
Dim sUnchangedText As String
Dim Pos As Long
CapitalizeBeforeToken = sInText
If Len(sTokenChar) <> 1 Then
CapitalizeBeforeToken = sInText
Exit Function
End If
Pos = InStr(1, sInText, sTokenChar, vbTextCompare)
If Pos > 1 Then
sUnchangedText = Mid$(sInText, Pos)
sOutText = Left$(sInText, Pos - 1)
sOutText = UCase(sOutText)
sOutText = sOutText & sUnchangedText
CapitalizeBeforeToken = sOutText
End If
End Function
Sub TestCap()
Dim sResult As String
sResult = CapitalizeBeforeToken("N.s.u.h.@Plainview", "@")
MsgBox "Converted Text = " & sResult
End Sub