Se for poucas linhas (até umas 3000 acho) creio que abrindo o arquivo dá pra fazer assim:
dim var_flag as byte
do while not eof(1)
...
matriz = split(linha,";")
if matriz(0) <> textbox.text then
var_flag = 1
else
var_flag = 0
Exit Do
endif
...
loop
if var_flag = 1 then msgbox "item não encontrado"
Agora se tiver muitos registros esse método fica lento. Melhor vc abrir o arquivo texto como uma fonte de dados pelo ADO. Depois vc faz uma pesquisa SELECT:
RS.OPEN "SELECT CAMPO FROM ARQUIVO.TXT WHERE CAMPO = '" & TEXTBOX.TXT & "'",CONEXAO_ADO
IF RS.EOF THEN MSGBOX "ITEM NÃO ENCONTRADO"
Sendo: DIM CONEXAO_ADO AS ADODB.Connection
DIM RS AS ADODB.Recordset
Qq dúvida postae
at+
