TRATAR STRING COM CARACTERES . ? !

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Vector() As String = Nothing
        Dim str As String = Me.TextBox1.Text
        Dim Temp As String = [Ô][Ô]
        Dim VetorTemp() As String = Nothing

        str = PreparaFrase(str)
        str = ReconhecePontos(str)
        VetorTemp = SeparaFrases(str)
        str = Trabalho(VetorTemp)
        MsgBox(str)
    End Sub

    Public Function ExcessoNo_Texto(ByVal Meu_Texto As String, ByVal Caracter As Char) As String
        Do While (Meu_Texto.IndexOf(Caracter & Caracter) <> -1)
            Meu_Texto = Meu_Texto.Replace(Caracter & Caracter, Caracter)
        Loop
        Return Meu_Texto.Trim()
    End Function

    Private Function PreparaFrase(ByVal Param As String) As String

        [ô] Trata reticencias, mais de 3 pontos assume 3 pontos
        Param = Param.Replace([Ô]...[Ô], [Ô]☻[Ô])
        Do While (Param.IndexOf([Ô]☻.[Ô]) <> -1)
            Param = Param.Replace([Ô]☻.[Ô], [Ô]☻[Ô])
        Loop

        Dim Caracteres As String = [Ô]☻!?., [Ô]
        For i = 0 To Caracteres.Length - 1
            Param = ExcessoNo_Texto(Param, Char.Parse(Caracteres.Substring(i, 1)))
        Next
        Return Param
    End Function

    Private Function ReconhecePontos(ByVal Param As String) As String
        Dim Vetor() As String = {[Ô].[Ô], [Ô]![Ô], [Ô]?[Ô], [Ô]☻[Ô]}
        ReconhecePontos = Param
        For Each Ponto As String In Vetor
            ReconhecePontos = ReconhecePontos.Replace(Ponto, Ponto & [Ô]||[Ô])
        Next
        Return ReconhecePontos
    End Function

    Private Function SeparaFrases(ByVal Param As String) As String()
        Dim Vetor() As String = Split(Param, [Ô]||[Ô])
        SeparaFrases = Vetor
        Return SeparaFrases
    End Function

    Private Function Trabalho(ByVal vetor As Array) As String
        Trabalho = String.Empty
        For Each Frase As String In vetor
            Frase = Frase.Trim
            If Frase <> [Ô][Ô] And Frase <> [Ô].[Ô] And Frase <> [Ô]![Ô] And Frase <> [Ô]?[Ô] And Frase <> [Ô]☻[Ô] Then
                Trabalho = String.Concat(Trabalho, [Ô] [Ô], Char.ToUpper(Frase(0)) & Frase.Substring(1).Replace([Ô]☻[Ô], [Ô]...[Ô]))
            End If
        Next
        Return Trabalho
    End Function

End Class

 Option Strict On
Public Class Form1
    Function FixString(s As String) As String
        Const symbols As String = [Ô].?![Ô]
        Dim symHit As Boolean = True
        [ô]
        For i As Integer = 0 To s.Length - 1
            If symHit Then
                If Char.IsLetter(s(i)) Then
                    If Char.IsLower(s(i)) Then
                        Dim c As Char = s(i)
                        s = s.Remove(i, 1).Insert(i, Char.ToUpper(c))
                    End If
                    symHit = False
                End If
            Else
                If symbols.IndexOf(s(i)) > -1 Then
                    Dim c As Char = s(i)
                    If Char.IsPunctuation(s(i)) AndAlso Not Char.IsPunctuation(s(i + 1)) AndAlso Not Char.IsWhiteSpace(s(i + 1)) Then
                        s = s.Remove(i, 1).Insert(i, c & [Ô] [Ô])
                        symHit = True
                    Else
                        s = s.Remove(i, 1).Insert(i, Char.ToUpper(c))
                        symHit = True
                    End If
                End If
            End If

        Next
        Return s
    End Function
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.TextBox2.Text = FixString(Me.TextBox1.Text)
    End Sub
End Class