I created a database in txt.like this:
"143483",1234
"143484",1235
"143485",5588
"143486",5876
"143488",8568
"143487",8756

I want the if the iput is 143483, then the output is 1234
But now if I input 143483, I got "143483", 1234.
Private Sub Command1_Click()
Dim Target As String
Dim Current As String
Target = Text1.Text
Open "Test1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Current
If InStr(Current, Target) Then
Label3.Enabled = True
Text2.Enabled = True
Text2.Text = Current
Exit Do
End If
Loop
Close #1
End sub
How could I get 1234 only. thanks a lot.