Public Function Buscar_TXT()
        Dim criterio As String
        Dim filename As String

        Dim contador As Integer = 1
        Dim Linea_Actual As Integer = 0

        ' Obtener el resultado
        Dim vlcResultado As String = ""
        ' Especifica el criterio
        criterio = "USER-PC"
        Dim vlcCriterio As String = criterio
        ' Nombre del archivo a utilizar
        filename = "C:\Red.txt"
        Dim vlcFileName As String = filename
        ' Si el archivo existe
        If IO.File.Exists(vlcFileName) Then
            ' Crear el stream
            Dim vloFile As New StreamReader(vlcFileName)
            ' Ciclo de iteración entre líneas
            While True
                ' Cargar la línea
                Dim vlcLinea = vloFile.ReadLine()
                ' Si la línea es nula, sale del ciclo
                If vlcLinea Is Nothing Then Exit While
                ' Si la línea contiene el criterio
                If vlcLinea.Contains(vlcCriterio) Then
                    ' Obtener la línea como resultado,
                    ' Concatenando un retorno de carro si ya hay ocurrencias
                    vlcResultado += IIf(vlcResultado <> "", vbCrLf, "") & vlcLinea
                    Linea_Actual = contador
                    ' Salir del ciclo
                    'Exit While ' Lo omites si quieres todas las ocurrencias
                End If
                contador += 1

            End While
        End If
        ' Si no se encontraron resultados
        If vlcResultado = "" Then vlcResultado = "No se encontraron registros."
        MsgBox("El resultado de La busqueda es: " + vlcResultado.ToString + " La linea en la que lo encontro es: " + Linea_Actual.ToString)
        ' Devolver resultado
        Return vlcResultado
    End Function