laufteitfehler 13

Private Sub ComboBox6_Change()
End Sub

Private Sub ComboBox7_Change()
End Sub

Private Sub ComboBox9_Change()
End Sub

Private Sub CommandButton1_Click()
Dim stWert As String, strFileName As String
stWert = FileIndex(strPath)
Range("H4") = stWert
strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & "\" & "Angebote" & "-" &  _
Range("D2") & "-" & Range("A18") & "-" & stWert & ".xls", FileFilter:="Excel Dateien (*.xls), *.xls)", Title:="Speicherort wählen")
If strFileName  "Falsch" Then ThisWorkbook.SaveAs strFileName
End Sub

Private Function FileIndex(strPath As String) As String
Dim FS As FileSearch, lngFiles As Long, lngMax As Long
Set FS = Application.FileSearch
With FS
.LookIn = strPath
.Filename = "*.xls"
.SearchSubFolders = True
If .Execute > 0 Then
For lngFiles = 1 To .FoundFiles.Count
If Left(Right(.FoundFiles(lngFiles), 9), 5) * 1 > lngMax Then
lngMax = Left(Right(.FoundFiles(lngFiles), 9), 5) * 1
End If
Next lngFiles
End If
End With
FileIndex = Format(lngMax + 1, "_00000")
End Function

Private Sub CommandButton2_Click()
Workbooks.Open Filename:="z:\Adressen\Adressen.xls"
End Sub

-------------------------------------------------------------------------
klappt einwandfrei. ändere ich aber den pfad Const strPath As String = "z:\Kalkutest"
in ein anderes verzeichnis in dem jede menge unterverzeichnisse und dateien sind, so bringt er laufzeitfehler 13. leider bin ich ein absoluter vba-loser und wenn man obiges nicht genau versteht fälllt die fehlersuche schwer. und bei einem solchen fehler konnte mir google auch nicht weiter helfen.
wer kann mir helfen?
gruß markus