Даны 2 текстовых файла, один в файле, другой в textbox. Нужно сравнить каждое слово из textbox, с каждым словом из файла, и в случае если они совпадают выделить это слово в тексте(в textbox) цветом. Вот мой код...

Private Sub Command3_Click()
Dim txt As String
Dim alltxt As String
Dim mas As Variant
Open "M:\КУРСОВОЙ\Прога VB\noun.txt " For Input As #1
Do Until EOF(1)
Line Input #1, txt
alltxt = alltxt + txt + vbCrLf
Loop
mas = Split(alltxt, vbCr)
Close #1

For Each itm In mas
Print itm
Next itm


Dim s As String
Dim m As Variant
m = Split(Text1.Text)
For Each itm In m
p% = InStr(itm, ".")
If p <> 0 Then
itm = Left(itm, p - 1)
End If
Print itm
Next itm


For Each itm In mas
For Each itm In m
If itm = itm Then
Print itm
Next m
Next mas
End Sub

Считал с файла, разбил сплитом на пробелы и строки (в файле каждое слово записано с новой строки), записал в массив.
То же самое сделал и с текстом из textbox , убрал знаки препинания в конце слов.

А вот со сравнением массивов меня застопорило... For each во вложенном цикле не работает... Задавать длину массива мне почему то кажется стремным... Или всетаки придется задать??? Что посоветуете??? Спасибо!

Antonariy,
Спасибо...
я просто for each никогда не использовал , и считал itm -ключевым словом :) хехе..

Сделал как надо.
For Each itm1 In mas
For Each itm2 In m
If itm1 Like (или "=") itm2 Then
Print itm1
End If
Next itm2
Next itm1

Массивы не сравниваются... Ошибок не выдает.. но и то что нужно не выводит. ((
Каждый элемент массива -это слово. Что здесь не таК ??? подскажите плиз!!!