Querryを使用すればVBAを使わずにテキストファイルにリンクできますが、ワークシートに内容を書き込んでしまいます。こだわりのある方は必要なデータだけを取り込んでみてはどうでしょうか。


─ ブックと同フォルダ内の 'Sample.txt' ─

Code,Name
61,みかん
253,りんご
549,パイナップル
139,バナナ
698,すいか
680,レモン
596,かき

Sub Codeが698のNameを取り込む()
  Dim Column1, Column2
  Range("A1").ClearContents
  Open ThisWorkbook.Path & "¥Sample.txt" For Input As #1
  Do While Not EOF(1)
    Input #1, Column1, Column2
    If Column1 = 698 Then
      Range("A1").Value = Column2
      Exit Do
    End If
  Loop
  Close #1
End Sub

Sub Codeが600番台のNameを取り込む()
  Dim Column1, Column2
  Dim i As Integer
  i = 1
  Columns("A").ClearContents
  Open ThisWorkbook.Path & "¥Sample.txt" For Input As #1
  Do While Not EOF(1)
    Input #1, Column1, Column2
    If Int(Val(Column1) / 100) = 6 Then
      Cells(i, 1).Value = Column2
      i = i + 1
    End If
  Loop
  Close #1
End Sub

これと「データを検索」を組み合わせると実用的になるのではないでしょうか。