'PROCESS: SPLIT USER'S INPUT STRING INTO SEPERATE SENTENCES
    'Encode abbreviations such as Mr. Mrs. and Ms.
    InputString = Replace(InputString, "MR.", "Mr<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "MRS.", "Mrs<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "MS.", "Ms<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "DR.", "Dr<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "MS.", "Ms<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "ST.", "St<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "PROF.", "Prof<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "GEN.", "Gen<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "REP.", "Rep<PERIOD>", 1, -1, vbTextCompare)
    InputString = Replace(InputString, "SEN.", "Sen<PERIOD>", 1, -1, vbTextCompare)

    	'This is the new section which can be removed at any time to go back to original
			    InputString = Replace(InputString, " A. ", " A<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " B. ", " B<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " C. ", " C<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " D. ", " D<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " E. ", " E<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " F. ", " F<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " G. ", " G<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " H. ", " H<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " I. ", " I<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " J. ", " J<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " K. ", " K<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " L. ", " L<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " M. ", " M<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " N. ", " N<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " O. ", " O<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " P. ", " P<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " Q. ", " Q<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " R. ", " R<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " S. ", " S<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " T. ", " T<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " U. ", " U<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " V. ", " V<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " W. ", " W<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " X. ", " X<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " Y. ", " Y<PERIOD> ", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, " Z. ", " Z<PERIOD> ", 1, -1, vbTextCompare)
			
			    InputString = Replace(InputString, "SR.", "Mr<PERIOD>", 1, -1, vbTextCompare)			
			    InputString = Replace(InputString, "MR.", "Mr<PERIOD>", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, "JR.", "Jr<PERIOD>", 1, -1, vbTextCompare)
			    InputString = Replace(InputString, "INC.", "Inc<PERIOD>", 1, -1, vbTextCompare)
		'End of new section
		
    'Remove unnecessary punctuation
    Do
        RepeatLoop = False
        If InStr(InputString, "..") Then InputString = Replace(InputString, "..", "."): RepeatLoop = True
        If InStr(InputString, "??") Then InputString = Replace(InputString, "??", "?"): RepeatLoop = True
        If InStr(InputString, "!!") Then InputString = Replace(InputString, "!!", "!"): RepeatLoop = True
        If InStr(InputString, "!?") Then InputString = Replace(InputString, "!?", "?"): RepeatLoop = True
        If InStr(InputString, "?!") Then InputString = Replace(InputString, "?!", "?"): RepeatLoop = True
        If InStr(InputString, ",,") Then InputString = Replace(InputString, ",,", ","): RepeatLoop = True
    Loop While RepeatLoop = True
    'Detect and encode acronyms such as U.S.A.
    InputString = Trim(InputString)
    WordList = Split(InputString, " ")
    For i = 0 To UBound(WordList)
        If Len(WordList(i)) > 3 Then
            If Right(WordList(i), 1) = "." And Mid(WordList(i), Len(WordList(i)) - 2, 1) = "." Then
                InputString = Replace(InputString, WordList(i), Left(WordList(i), Len(WordList(i)) - 1) & "<PERIOD>")
            End If
        End If
    Next
    'Place split markers in string
    InputString = Replace(InputString, ". ", ". <NEWSENT>")
    InputString = Replace(InputString, "? ", "? <NEWSENT>")
    InputString = Replace(InputString, "! ", "! <NEWSENT>")
    'Decode acronyms and abbreviations
    InputString = Replace(InputString, "<PERIOD>", ".", 1, -1, vbTextCompare)
    'Split string into sentences
    Sentences = Split(InputString, "<NEWSENT>")