База данных в textbox-e - VB

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

У меня есть программа которая создаёт списки учеников и сохраняет их в файлы TXT . но есть одно но в неё можно вписать несколько одинаковых имён , как это можно исправить????? p.s. Заранее спасибо)))

Решение задачи: «База данных в textbox-e»

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

                            Private Sub Command1_Click()
If InStr(1, Text1, Text2) Then MsgBox "Г“Г¦ГҐ ГҐГ±ГІГј": Exit Sub
Text1.Text = Text2.Text & vbNewLine & Text1.Text
End Sub
                        