Подсчёт количества предложений в тексте - Visual Basic .NET

Формулировка задачи:

Есть текст. Нужно узнать сколько предложений в нём.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim S As String
        Dim L, i, K_Point As Single
        S = TextBox1.Text
        L = Len(S)
        For i = 1 To L
            If Mid(S, i, 1) = "." Or Mid(S, i, 1) = "?" Or Mid(S, i, 1) = "!" Or Mid(S, i, 1) = ";" Then
                K_Point = K_Point + 1
            End If
        Next i
        MsgBox(K_Point & Space(1) & "предложения(й) в тексте")
End Sub

Вот мне нужно ещё, если предложение заканчивается на многоточие (...), а также, если допустим забыли дописать знак, т.е. если без знака в конце. Сейчас, если я (...) пишу, то по логике проги K_Point будет увеличиваться +3 раза. Добавление к IF Mid(S, i, 3) = "..." - бред, т.к. есть Mid(S, i, 1) = "." . Подскажите как быть...

Решение задачи: «Подсчёт количества предложений в тексте»

textual
                            Листинг программы 
                        
                                    Dim txt As String = "Ваш текст... В том числе и предложения типа этого ?!"
        MsgBox(TextBox1.Text.Split({"."c, "!"c, "?"c, ";"c}, StringSplitOptions.RemoveEmptyEntries).GetLength(0))