MkDirでフォルダを作る際に発生するエラーについて

はじめまして。現在表題の使用について作成していますが
どうもうまくいきません。
原因も見つからず、作業が進まないために困っています。

皆さんの知識をお借りできますととても助かります。
よろしくお願いします。

前提・実現したいこと

MkDirでフォルダを作りたい

発生している問題・エラーメッセージ

エラー 76 パスが見つかりません。

該当のソースコード

Sub impex出力_INSORT()

Dim read_row As String
Dim read_col As String
Dim read_ImpexFolder As String
Dim ImpexFolder As String
Dim ImpexFile As String
Dim i As Long
Dim x As Long
Dim ws As Worksheet
Dim wd As Object


'入力シート
read_row = Range("E3")
read_col = Range("E4")
read_ImpexFolder = Range("E6")

'保存先フォルダ・ファイル名指定
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
        ImpexFolder = .SelectedItems(1) & "\" & Format(Date, "yyyymmdd") & ":新規作成\"
        ★MkDir ImpexFolder★ここでエラーが発生します
        ImpexFile = ImpexFolder & "\" & Format(Date, "yyyymmdd") & "_INSRT.impex "
    Else
        ImpexFolder = ActiveWorkbook.Path & "\" & read_ImpexFolder
        ImpexFile = ImpexFolder & "\" & Format(Date, "yyyymmdd") & "_INSRT.impex "
    End If
End With

Dim arr As Variant
arr = WorksheetFunction.Transpose(Range("A1:L100")) 
  
'①テキストを展開
'ワードを､エクセルで扱えるようにする
Set wd = CreateObject("Word.Application")
'ファイルを展開
Open ImpexFile For Output As #1

････････