如何提取在richtextbox中的句子（vb）

Option Explicit
Dim sep() As String
Const repTemp As String = "##"  '找个肯定不会在text里出现的

Private Sub cmdMake_Click()
    Dim strTest As String
    Dim i As Integer
    Dim a
    iniSep
    strTest = RichTextBox1.Text 
    For i = 0 To UBound(sep)
        strTest = Replace(strTest, sep(i), sep(i) & repTemp)
    Next
    a = Split(strTest, repTemp)
    For i = 0 To UBound(a)
        Print a(i)
    Next
End Sub
Private Sub iniSep() '这里可以添加可能的句子结尾
    ReDim sep(2)
    sep(0) = "?"
    sep(1) = "!"
    sep(2) = "。 "
End Sub

dim a ,i
a=split(replace(REPLACE(RichTextBox1.Text,"?","。"),"!","。"),"。")
for i= 0 to ubound(a)
print a(i)
next

取得richtextbox的text后， 按"。"分割就可以了
dim a ,i
a=split(RichTextBox1.Text,"。")
for i= 0 to ubound(a)
print a(i)
next