VBA コンパイルエラーが出てしまう

定数式が必要ですとエラーが出てしまいます。
お力をお貸しください。
cnsDirの部分が怒られています。
定数式が必要ですとでます。
宜しくお願い致します。

コSub 単体テスト仕様書マクロ()

Dim Path As String: Path = Range("B1").Value

    buf = Dir(Path & "*.xlsx")

    Worksheets("Sheet1").Range("A6:B100").Clear
    Cells.Font.Name = "Meiryo UI"
    Row = 2


    Application.ScreenUpdating = False

    Do While buf <> ""
        i = i + 1

        excelFileFullPath = Path + buf

            Dim srcBook As Workbook
            Set srcBook = Workbooks.Open(Path + buf)
            Dim srcSheet As Worksheet
            Set srcSheet = srcBook.Worksheets(1)
            srcSheet.Select

            output = 確認項目出力(FileDateTime(excelFileFullPath))

            srcBook.Close

            Cells(Row, 11).Value = output
            Row = Row + 2

        buf = Dir()
    Loop

    Range("K2").CurrentRegion.Sort key1:=Range("K2")

    Application.ScreenUpdating = True


    xcelFileFullPath = Path + buf

    Const cnsTitle = "ファイル名一覧取得"
    Const cnsDIR = "*.*"
    Dim xlAPP As Application
    Dim strPath As String
    Dim strFilename As String
    Dim GYO As Long

    Set xlAPP = Application
    ' フォルダの場所を指定する
    strPath = ""


    ' 先頭のファイル名の取得
    strFilename = Dir(strPath & cnsDIR, vbNormal)
    ' ファイルが見つからなくなるまで繰り返す
    Do While strFilename <> ""
        ' 行を加算
        GYO = GYO + 2
        Cells(GYO, 2).Value = strFilename
        ' 次のファイル名を取得
        strFilename = Dir()

        Loop

    MsgBox "完了"

End Sub

Private Function 確認項目出力(ByVal updateTime As Date) As String

    確認項目出力 = "テスト件数:" & Range("O3") & " " & _
        " 完了数:" & Range("P3") & _
        " 不具合件数:" & Range("R3") & _
        "　" & Range("A500") & "" & Range("D19") & _
        "　" & Range("I19") & _
        "　" & Range("A16") & _
        "　"
End Function

ード