Private Sub SummarizeTextSample()
    ' Print a sample of the SummarizeText function.

    Debug.Print SummarizeText(Gettysburg, SpecialSeparators, vbTextCompare, False, " ", "a an and are be can for here in is it of on that the they this")
End Sub