Блокнот = база данных, добавление и поиск - VB

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

Хотелось бы для своего удобства сделать утилиту в которую я смогу забивать данные из текст1 текст2 текст3, которые будут ссохраняться в файл, таким типом : текст1,текст2,текст3;текст1,текст2,текст3 и так до бесконечности+ приделать поиск по этим данным, пример :мне нужно найти данные, знаю только текст2, ввожу и мне показывает текст1,текст2,текст3 в виде маленькой табличке.

Решение задачи: «Блокнот = база данных, добавление и поиск»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command3_Click()
 Dim File As String, CF As String
   File = "\baseban.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1
   Dim ArrayLines() As String
ArrayLines = Split(CF, vbNewLine)
 
Dim J
Dim S()  As String
 
For J = 0 To UBound(ArrayLines) - 1
S = Split(ArrayLines(J), ",")
If S(1) = Text5.Text Then
Text1.Text = S(0): Text2.Text = S(1): Text3.Text = S(3) ' трататата
Exit For
End If
Next J
End Sub