Buscador tipo Google

[Peterpay]

Dim lectordearchivo as New StreamReader(ruta)
Dim textoArchivo as String
textoArchivo=lectorderarchivo.ReadToEnd()

si solo quieres mostrar algo del archivo digamos no se los primeos 100 caracteres un simple

Dim umbral as Integer
umbral=100
textoArchivo=textoArchivo.Substring(0,umbral)

claro que hay que agregar las validaciones para aquellos archivos que esten por debajo del umbral a seleccionar.

todo esto deberas hacerlo cuando lees de tu DataReader o haces el databound en algun control datagrid o repeater