Código:
Sub BuscarPorFecha(sFecha As String)
Dim TeEquisTes As String
TeEquisTes = Dir(App.Path & "\Cuentas\")
Do While TeEquisTes <> ""
If InStr(1, LCase$(TeEquisTes), ".txt") > 0 Then
If GetVar(App.Path & "\Cuentas\" & TeEquisTes, "Proximas Visitas", "Proximo Pago") = sFecha Then
''''' "Lo que quieras"
ElseIf GetVar(App.Path & "\Cuentas\" & TeEquisTes, "Proximas Visitas", "Proxima Visita") = sFecha Then
'''''' "Lo que quieras"
End If
End If
TeEquisTes = Dir
Loop
End Sub
PD: creo que con los datos que te dí lo puedes hacer.