Já consegui resolver. Caso alguém precise futuramente, seria algo mais ou menos assim (adaptado de uma rotina criada pelo TOMAS VASQUEZ)

Option Explicit
 
Public Sub LERTXT()
    Dim Arquivo As Integer
    Dim CaminhoArquivo As String
    Dim TextoArquivo As String
    Dim TextoProximaLinha As String
    Dim ContadorLinha As Long
    Dim valor As Double
 

    Arquivo = FreeFile
    CaminhoArquivo = ThisWorkbook.Path & "" & "TESTELER.txt"
    valor = txtID
   
    Open CaminhoArquivo For Input As Arquivo
    ContadorLinha = 1
    

    Do While Not EOF(Arquivo)
        Line Input #Arquivo, TextoProximaLinha
        TextoProximaLinha = TextoProximaLinha & vbCrLf
        TextoArquivo = TextoArquivo & TextoProximaLinha
        
        If TextoProximaLinha = valor Then
        'MsgBox "ACHOU O VALOR " & TextoProximaLinha
                   
                    Exit Sub
         Else
                    
         
         
        End If
    Loop
 

    Close Arquivo
 
End Sub