Cara mendapatkan kata per kata pada Richtextbox vb6

berikut adalah cara mendapatkan atau menampilkan kata per kata pada di richtextbox di vb6.
berikut adalah codingan nya.

Private Sub Command1_Click()
Dim arr() As String
Dim bbs() As String
Dim ck As String

    Dim i As Integer
    Dim n As Integer
    arr = Split(RichTextBox1.Text, vbCrLf)

    For i = 0 To UBound(arr)
        cr = arr(i)
        bbs = Split(cr, " ")
        For n = 0 To UBound(bbs)
        MsgBox bbs(n)
        Next
    Next
End Sub

semoga bisa membantu teman teman untuk memudah pencarian dengan kata specific di richtextbox di vb6