Grazie Antonio sono riuscito creandomi un form con una text box, un bottone di ricerca e una label con il risultato, all'evento click del command button ho dato:
Dim s1 As String
Open "c:\DB.csv" For Input As #1
Do While Not EOF(1)
Line Input #1, s1
If InStr(1, s1, Text1.Text) Then MsgBox ("Trovato" & s1): Close #1: Exit Sub
Label6.Caption = s1
Loop
MsgBox ("Non trovato")
Close #1
Funziona il valore trovato lo restituisce alla label6.caption in visualizzazione sul form, ora però ho neccessita di recuperare della stringa intera solo i valori dopo il separatore che è il ;