VBA Unterordner Check

Option Explicit

Public Sub modBeispiel()
'Definiere Variablen
'YR = Jahr
'KW = Kalenderwoche
'WD = WochenTag
'DY = Tag

'Definiere Ausgangsvariablen

    'Merke aktuellen Dateinamen
    Dim strAktWB As String
    strAktWB = ActiveWorkbook.Name
    
    'Merke Basis Pfad
    Dim strPfad As String
    strPfad = "*EXAMPLE*\Test\" 'DEV
    
    'Definiere FileName
    Dim strName As String
    strName = "Datei_"
    
    'Definiere Datum
    Dim strDY As String
    strDY = ThisWorkbook.Worksheets("Test").Range("A1")
    
    'Suche Kalenderwoche
    Dim strKW As String
    strKW = ThisWorkbook.Worksheets("Test").Range("A2")
    
    'Suche Wochentag
    Dim strWD As String
    strWD = ThisWorkbook.Worksheets("Test").Range("A3")
    
    'Suche Jahr
    Dim strYR As String
    strYR = ThisWorkbook.Worksheets("Test").Range("A4")
    
    'Fasse Strings Teil 1 zusammen
    Dim strAll As String
    strAll = strName & strKW & "_"
    
    'Fasse Strings Teil 2 zusammen
    Dim strAll2 As String
    strAll2 = strAll & strDY & ".xlsm"
    
    'String für Überordner
    Dim strPfadYR As String
    strPfadYR = strPfad & strYR
    
    'String für Unterordner
    Dim strPfadYRKW As String
    strPfadYRKW = strPfad & strYR & "\" & strKW
    
    'Check ob Überordner vorhanden
    If Dir(strPfadYR) = "" Then
        On Error GoTo Weiter
        MkDir (strPfadYR)
     
        Else
    
    GoTo Weiter

    End If
    
Weiter:
    'Check ob Unterordner vorhanden
    If Dir(strPfadYRKW) <> (strPfadYRKW) Then
        'On Error GoTo Weiter2
        MkDir (strPfadYRKW) *** DEBUG FEHLER
        
        Else
        
    GoTo Weiter2
    End If
    
Weiter2:
    
    'Ist es Sonntag?
    If (strWD) = "Sonntag" Then GoTo Sonntag Else
    
    GoTo Nope
    
    'Check ob aktuelle KW File vorhanden
    If Dir(strPfad) = "" Then
    
    'Unterdrücke Fehlermeldungen
    Application.DisplayAlerts = False
    
    'Open File
    Workbooks.Open strPfad
        GoTo Start
        
    Else
        
    GoTo Fehler
Start:
    If (strWD) = "Sonntag" Then GoTo Sonntag Else GoTo Fehler1A

End If
Nope:
MsgBox ("Du kannst dieses Makro nur an einem Sonntag ausführen!")
End

Sonntag:
MsgBox ("Check es ist Sonntag 'Call Makro'")
End

Fehler:
If MsgBox("Es ist ein interner Fehler aufgetreten!", vbOK + vbCritical, "Fehler") = vbOK Then
End If
End
End Sub

If Dir(strPfadYR) = "" Then

If Dir(strPfadYR, vbDirectory) = "" Then