Подпрограмма выполняющая упорядочивание слов по алфавиту

Module Module1
 
    Sub Main()
        Dim Текст As String = "Привет, как дела? " &
                              "У меня нормально. Добрый вечер. " &
                              "Добрый день всем. " &
                              "Доброе утро всем. " &
                              "100 (сто) дней"
        ОбработатьТекстовыеДанные(Текст)
    End Sub
 
    Sub ОбработатьТекстовыеДанные(Текст As String)
        Dim i As Integer
 
        Dim Предложения() As String = ОпределитьПредложения(Текст)
 
        For i = 0 To UBound(Предложения)
            Console.WriteLine(Предложения(i))
        Next
        Console.WriteLine()
 
        Dim Слова() As String = ОпределитьСлова(Текст)
 
        For i = 0 To UBound(Слова)
            Console.WriteLine(Слова(i))
        Next
        Console.WriteLine()
 
        Console.ReadKey()
    End Sub
 
    Function ОпределитьПредложения(Текст As String) As String()
        Dim x() As String = Текст.Split(New String() {". "},
                                        StringSplitOptions.RemoveEmptyEntries)
        For i As Integer = 0 To UBound(x)
            x(i) &= "."
        Next
        Return x
    End Function
 
    Function ОпределитьСлова(Текст As String) As String()
        Return Текст.Split({" "}, StringSplitOptions.RemoveEmptyEntries)
    End Function
 
End Module

Array.Sort(Слова)
Console.WriteLine(String.Join(" ", Слова))