Разбить текст из файла на слова и словосочетания - VB

Private Sub Command1_Click()
Dim tr As Boolean
chr_c = Array(65, 90, 97, 122, 192, 255)
t = Text1.Text + " "
sl = "": List1.Clear
For i = 1 To Len(t)
  tr = False
  For j = 0 To 4 Step 2
    If Asc(Mid(t, i, 1)) >= chr_c(j) And Asc(Mid(t, i, 1)) <= chr_c(j + 1) Then
       tr = True
       Exit For
    End If
  Next j
If tr = True Then
  sl = sl & Mid(t, i, 1)
Else
 If Len(sl) > 0 Then List1.AddItem sl
sl = ""
End If
Next i
End Sub