Capitalize the first letter of each word in a string of text

    Private Function Capatalize(StringToCapatalize As String) As String
        Dim ReturnString = StringToCapatalize
        Dim CapsString = ReturnString.ToLower
        CapsString = CapsString.Replace("o'", "o" & ChrW(8203) & "'")
        ReturnString = System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(CapsString)
        Return ReturnString
    End Function