min loop fejler

Hej jeg har kode der læser alle min xls. filer i en folder , men den stopper ikke når den når til den sidste og jeg får derfor en fejl. når jeg debugger ser det ud til at 
Do While Not (SfileToOpen(lCount) = "") bliver opfyldt men den stopper ikke derfor får jeg en fejl. hvad er der galt

Dim sFolder As String
    Dim wbdata As Workbook
      Dim lCount As Long
  Dim valsheet As Worksheet
sFolder = "E:\Dokumenter\HA\2006F\edb\valutakurser\"
   
    lCount = 1
    ReDim SfileToOpen(1 To lCount)
  SfileToOpen(lCount) = sFolder & Dir(sFolder + "*.xls")
    Do While Not (SfileToOpen(lCount) = "")
        lCount = lCount + 1
        ReDim Preserve SfileToOpen(1 To lCount)
        SfileToOpen(lCount) = sFolder & Dir
       
    Loop