Variable als Pfad für objWMIService.ExecQuery

Variable als Pfad für objWMIService.ExecQuery

ich habe eine Funktion die folgende Abfrage beeinhaltet:

Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='D:\temp_download\helimission_file_renaming\Newpicture'} Where " _
& "ResultClass = CIM_DataFile")

For Each objFile In colFiles


nun möchte ich den pfad als Variable von einem Textfeld übernehmen.
ich habe diverse Variable im Einsatz, ohne Problem, nur bei diese Methode werden die Variablen nicht übernommen ?!?

also z.B.

imagedir1 = Text2.Text

dann irgendetwas wie:

Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name= imagedir1 } Where " _
& "ResultClass = CIM_DataFile")

....
StrQuery="ASSOCIATORS OF {Win32_Directory.Name= '" _   
                  & imageDir1 & "' } Where ResultClass = CIM_DataFile"  

Set colFiles = objWMIService.ExecQuery(StrQuery)
...