Über VBA mittels msgbox ein Verzeichnis zuweisen

Public Sub MehrereDateienImportierenV1()
'geteset AC97, AC2000
' es werden mehrere GLEICHARTIGE Importdateien nacheinander verknüpft und an
' eine Haupttabelle angefügt
' Voraussetzungen :
' TXT,CSV : Importspezifikation wurde erstellt und gespeichert
' Startverzeichnis für die Suche angeben
Const SuchVerzeichnis = "E:\Test\2017 03\Test\"
' einen Filetyp bzw Dateinamensbild freischalten
' ("*.txt";"*.csv";"2005*.xls")
Const DatTyp = "*.xlsm"
' Zieltabelle, an welche die Daten angefügt werden sollen
Const ZielTab = "Haupttabelle"
Dim i As Integer
Dim AktDatei As String
AktDatei = Dir(SuchVerzeichnis & DatTyp)
While Len(AktDatei) > 0
Debug.Print AktDatei
EineExcelDateiEinlinkenUndAnfügen SuchVerzeichnis & _
AktDatei, ZielTab
AktDatei = Dir ' nächste Datei
Wend
End Sub