Rekursivt gennemløb af træstruktur - take 2

Nu virker søgningen (se evt. mit tidligere spørgsmål), men jeg får en eller anden form for wildcardsøgning på navnet f.eks. finder den også optal 1.csv når jeg søger på optal.csv. Min kode er lige nu:

Option Explicit
Dim StartMappe As String
Dim FilNavn As String
Dim FilTaeller As Integer
Private Sub Rekursiv()

StartMappe = "c:\temp"
FilNavn = "optal.csv"

With Application.FileSearch
   
    .NewSearch
    .LookIn = StartMappe
    .SearchSubFolders = True
    .FileName = FilNavn
    .Execute
   
    If .FoundFiles.Count > 0 Then
     
      For FilTaeller = 1 To .FoundFiles.Count
   
        Debug.Print .FoundFiles(FilTaeller)
     
      Next FilTaeller
     
    Else
   
        MsgBox ("Ingen data fundet")
       
    End If
 
End With
 
End Sub

Jeg har prøvet at lægge en right() udenom og så sige jeg kun vil se hvis den fulde sti ender på optal.csv, men den er åbenbart case-sensitive så så går det galt med opTal.cSv f.eks.

Tak

:o]