Problem mit einem Makro zum Zählen von D

Sub ProduktfotosZaehlen2()
Dim strOrdnerName As String
Dim strName As String
Dim intz As Integer
Dim strGpnr As String
Dim Var As String
strGpnr = Sheets("Produktfotos").Cells(8, 4) ' Artikelnummer
strOrdnerName = Sheets("user_data").Cells(106, 2) ' Pfad zum Produktfotoordner
strName = Dir(strOrdnerName & "*.*")
intz = 0
' MsgBox "Zählschleife vor Beginn:" & intz
Do While strName  ""
strName = Dir
MsgBox "Archivdatei: " & strName & "Artikelnr: " & strGpnr ' nur für Testphase aktiv
Var = Left$(strName, Sheets("Produktfotos").Cells(8, 16))
MsgBox "Vergleichsnamensteil: " & Var ' nur für Testphase aktiv
If strGpnr = Left$(strName, Sheets("Produktfotos").Cells(8, 16)) Then
intz = intz + 1
MsgBox "Zählschleife:" & intz ' nur für Testphase aktiv
End If
Loop
MsgBox "Dateien:" & intz ' nur für Testphase aktiv
Sheets("Produktfotos").Cells(9, 16) = intz
End Sub