Hola q tal a todos necesito de su ayuda estoy cargando archivos y abro cada uno de elllos y voy rrecoriendo las filas del contenido e ir comparanodolo con el valor de x donde x es el valor capturado en un textbox pero me marca un error el error me lo marca en la linea 11 el tipo de error es  mencionado en el titulo este el codigo espero me puedan ayudar 
   
Código vb:
Ver original- Public Sub cargaArchivo() 
-         x = TextBox1.Text 
-         archivos = Directory.GetFiles("c:/xampp", "*.html", SearchOption.AllDirectories) 
-         For i = 0 To archivos.Length - 1 
-             Dim leer As New StreamReader(archivos(i)) 
-             Dim text As String = "" 
-             Dim split As String() = Nothing 
-             'Dim silaba As String() 
-             While (Not text Is Nothing) 
-                 text = leer.ReadLine() 
-                 split = text.Split(New Char() {"\n"}, 10) 
-                 'silaba = split(i).Split(New Char() {"<"}) 
-                 If (split(i).IndexOf(x) > 0) Then 
-                     ListBox1.Items.Add(archivos(i)) 
-                 End If 
-             End While 
-   
-         Next 
-     End Sub 
Gracias anticipadas 
Saludos a todos