Problem med InStr()

Jeg arbejder med VBA i Word97.

Dette virker:

Private Sub CommandButton1_Click()
  Dim stifil As String
  stifil = Dir(\"F:\\salg\\tilbud\\23011*\")

  Do While stifil <> \"\"
      ComboBox1.AddItem (stifil)
      stifil = Dir
      counter = counter + 1
  Loop
End Sub


Her er det samme eksempel med en if sætning og brug af InStr() i loop\'en. Det får Word til at gå i koma, og kan kun afsluttes med Ctrl+Alt+Delete, hvorfor mon?:

Private Sub CommandButton1_Click()
  Dim stifil As String
  stifil = Dir(\"F:\\salg\\tilbud\\23011*\")

  Do While stifil <> \"\"
    If InStr(1, stifil, \".xls\", 1) = 0 Then
      ComboBox1.AddItem (stifil)
      stifil = Dir
      counter = counter + 1
    End if
  Loop
End Sub


Håber nogen kan hjælpe.