Поиск слова в словаре - VB

Формулировка задачи:

Поиск слова в словаре. Все слова словаря хранятся в массиве. В отдельном текстовом поле вывести найденное слово и наиболее близкие к нему варианты (однокоренное, начинающееся на ту же последовательность букв). В другое текстовое поле вывести все слова словаря. Предусмотреть поле для ввода отыскиваемого слова.

Решение задачи: «Поиск слова в словаре»

textual
                            Листинг программы 
                        

                            Option Explicit
Option Compare Text
Dim Arr
Const MinLen As Integer = 4
Private Sub Command1_Click()
    Dim i As Long, j As Integer, s As String, st As String, n As Long
    Text2.Text = ""
    For j = 1 To Len(Trim(Text3.Text)) - MinLen + 1
        st = Mid(Trim(Text3.Text), j, MinLen)
        For i = 0 To UBound(Arr)
            If Arr(i) Like "*" & st & "*" Then
                  s = s & Arr(i) & vbCrLf
                  n = n + 1
            End If
        Next i
    Next j
    Text2.Text = s
    MsgBox IIf(n = 0, "Поиск не дал результатов.", "Найдено " & n & " слов")
End Sub
 
Private Sub Form_Load()
    Dim ff As Integer, st As String
    ff = FreeFile
    Open App.Path & "\Dictionary.txt" For Input As #ff
        st = Input(LOF(ff), ff)
    Close #ff
    Text1.Text = st
    Arr = Split(st, vbCrLf) '14832
End Sub
                        