Obtain the customer's voices from a TXT file, each in their own Textbox | VBA & Macros | Excel Forum

Hello my name is Maurizio and my problem with excel and its VBA and this:
I plugged in a Userform 11 Textbox and two Buttons I respectively called "Weld Data"
and "Find Customer"

Now I state that this code I had written many years ago using the VB 6.0 and it is working
today again.

Now having said that making changes alqune the case I was able to recreate all using
VBA.

The purpose of my program, and I write for each customer personal data within
the TextBox, After that, we press the "Weld Data" button and all the data entered in Textbox
They Are Saved in a TXT file.

After that my problem and then basically this: I wish that after Submitted
in Textbox1 I Textbox2 or Textbox3 Code (ID) rather than the (Last) or (name) of
Customer from Search, and then pressing the "Find Customer button", I could
appear all record of that customer.

Now I have to admit that as far as the key "Weld Data" in TXT format should I say
Everything works fine well.

But I can not say the same thing regarding the button "Find Customer"; Since all
of that particular customer record can find it all.
However, he removed the first two Textbox, All other They import the same data across the reportt of
that customer.
While I wish that each item returned in the appropriate textbox, the code in question is this:

Private Sub Cmd_Salva_Dati_Click()
myFile = ThisWorkbook.Path & "\Database.txt"
Open myFile For Append As #1
Write #1, TextBox1, TextBox2, TextBox3
Debug.Print , TextBox1, TextBox2, TextBox3

Close #1
Me.TextBox1.SetFocus

Me.TextBox1.Text = ""
Me.TextBox1.Text = ""
Me.TextBox1.Text = ""
End Sub

Private Sub Cmd_Trova_Cliente_Click()
ChDir ThisWorkbook.Path
myFile = ThisWorkbook.Path & "\Database.txt"
'myFile = Application.GetOpenFilename("File di testo,*.txt")
If myFile = "Falso" Then
MsgBox "Nessun file selezionato.", vbCritical + vbOKOnly, "Attenzione"
Exit Sub
End If

Open myFile For Input As #1
Do Until (EOF(1))
Line Input #1, Stringa
If InStr(Stringa, UserForm1.TextBox1) > 0 Then
'Stop
A = InStr(Stringa, ",")
B = InStr(A + 1, Stringa, ",")
C = B - A

D = B - A
E = B - A
F = B - A

G = B - A
H = B - A
I = B - A
J = B - A
K = B - A

TextBox2 = Replace(Mid(Stringa, A + 1, C - 1), """", "")
TextBox3 = Replace(Mid(Stringa, B + 1), Chr(34), "")

TextBox4 = Replace(Mid(Stringa, A + 1, C - 1), """", "")
TextBox5 = Replace(Mid(Stringa, B + 1), Chr(34), "")

TextBox6 = Replace(Mid(Stringa, A + 1, C - 1), """", "")
TextBox7 = Replace(Mid(Stringa, B + 1), Chr(34), "")

TextBox8 = Replace(Mid(Stringa, A + 1, C - 1), """", "")
TextBox9 = Replace(Mid(Stringa, B + 1), Chr(34), "")

TextBox10 = Replace(Mid(Stringa, A + 1, C - 1), """", "")
TextBox11 = Replace(Mid(Stringa, B + 1), Chr(34), "")

GoTo Esci
End If
Loop
Esci:
Close #1

End Sub

Could you help me out on this, Thanks Sincere greetings from A.Maurizio