Estimados amigos foreros.... Tengo el siguiente código (el cual pude armar con ayuda de otro forero) para buscar cierta parte de un txt y cargarlo a un list y me funciona bien:

Código:
For i = 1 To miColeccion.Count - 1
            If InStr(miColeccion(i), TextDoc) <> 0 Then
                For j = i - 5 To i + 27
                    List1.AddItem miColeccion(j)
                Next j
            End If
Next i
Pero quisiera, ya que he colocado un listbox con casilla de verificación al lado del listbox a donde extrigo el recibo, extraer el recibo del mismo funcionario para cada casilla del listbox que halla seleccionado, o sea para cada mes seleccionado. Pero no logro que me funcione, tal vez estoy colocando mal la sentencia....como les parece que lo solucione?

Código:
Private Sub Cargartxt()
On Error Resume Next
If (TextDoc < 1) Then
MsgBox "Debe digitar un documento para continuar"
Else


Dim BuscarDocumento As String
Dim strRuta As String 'declaras una variable en donde pones la ruta del archivo
Dim i As Long
Dim e As Long
Dim j As Long
Dim x As Long

      

Dim strLinea As String 'declaras otra variable en donde pones la linea que estas leyendo
Dim StrMesDeRecibo As String
    StrMesDeRecibo = FormLeerRecibos.ListMeses.Text

Dim miColeccion As New Collection

strRuta = "C:\Pryecto recibo\Recibos\" & StrMesDeRecibo & ""


'----------------------------------------------

For x = 0 To ListMeses.ListCount - 1
    If ListMeses.Selected(x) = True Then
        Open strRuta For Input As #1 'Con esto abres el archivo
        Do While Not EOF(1)
            Line Input #1, strLinea 'y con esto lees linea por linea
            miColeccion.Add strLinea
        Loop
            
        For i = 1 To miColeccion.Count - 1
            If InStr(miColeccion(i), TextDoc) <> 0 Then
                For j = i - 5 To i + 27
                    List1.AddItem miColeccion(j)
                Next j
            End If
        Next i
        Close #1 'con esto se cierra el archivo
    End If
Next x

End If

End Sub