            Try
                Dim Archivo As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
                ' busca "Hola mundo" en un solo nivel ( SearchTopLevelOnly ) en el directorio c: 
                Archivo = My.Computer.FileSystem.FindInFiles( _
                    "C:\Users\administrator\Documents\Visual Studio 2010\Projects\Control de Accesos\Control de Accesos\bin\Debug\", _
                    "Respuesta desde 192.168.11.11: bytes=32", _
                    True, _
                    FileIO.SearchOption.SearchTopLevelOnly)

                ' recorre la lista
                For Each name As String In Archivo
                    ' Agrega
                    LBEC.Items.Add(name)
                    'PBEC11.Image = PBECEncendida.Image
                Next
                ' error
            Catch oe As Exception
                MsgBox(oe.Message, MsgBoxStyle.Critical)
            End Try
