Fehler in Festlegen von Zielverzeichnis

Sub LegeZielverzeichnisFest()
Zielverzeichnis = "C:\Programme\Microsoft Office\Office\Makro"
Application.FileSearch.LookIn = Zielverzeichnis
Pfadbezeichnung = Application.FileSearch.LookIn
If Application.FileSearch.LookIn = _
"C:\Programme\Microsoft Office\Office\Makro" Then
'Meldung1: Eingabe für Zielverzeichnis wird übernommen...
MsgBox "Eingabe für Ziellaufwerk = jetzt geändert."
MsgBox "Ziellaufwerk:='" & Zielverzeichnis & "'", vbInformation, _
"Application.FileSearch.LookIn:='" & Pfadbezeichnung & "'"
Else
'Meldung2: Eingabe für Zielverzeichnis wird nicht übernommen...
MsgBox "Eingabe für Ziellaufwerk wurde leider ignoriert."
MsgBox "Ziellaufwerk:='" & Zielverzeichnis & "'", vbCritical, _
"Application.FileSearch.LookIn:='" & Pfadbezeichnung & "'"
End If
End Sub