Inputbox ile belirtilen klasörü açma

Sub KlasorAcma()
    KlasorIsmi = InputBox("Klasör İsmini Girin")
    If KlasorIsmi = "" Then MsgBox "Bir Klasör İsmi Girin": GoTo 10
    If Dir("C:\" & KlasorIsmi, vbDirectory) = "" Then MsgBox "Geçerli Bir Klasör İsmi Girin": GoTo 10
    CreateObject("Shell.Application").Open "C:\" & KlasorIsmi
10
End Sub

Sub klasor_sec()
yol = "c:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.Filters.Clear
.InitialFileName = yol
.Title = "Klasöre gözat"
.Show
If .SelectedItems.Count = 0 Then GoTo 1
'MsgBox .SelectedItems(1)
CreateObject("Shell.Application").Open (.SelectedItems(1))
1
End With
End Sub