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

   Dim File As String, CF As String 
   File = "d:\ca.log" 
   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) = "искомое значение" Then ' трататата
Exit For
next J

Dim f As Integer
Private Sub Command1_Click()
f = FreeFile
Open App.Path & "\baseban.txt" For Output As f
Print #f, "База данных бана"
Close f
MsgBox ("Был создан База-файл")
End Sub
 
Private Sub Command2_Click()
Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = "\baseban.txt"
Open FName For Output As #FN
Print #FN, Text1, Text2, Text3, Text4
Close #FN
End Sub

   Dim File As String, CF As String 
   File = "d:\ca.log" 
   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) = "искомое значение" Then 
' трататата
Exit For
end if
next J

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