Решение простое, просто закомментируйте ваш код DataType и скомпилируйте его сначала, раскомментируйте код обратно, затем проблема будет решена.
XAML-файл просто не может ссылаться на пространства имен, которые не были построены.
Просто установите ZipFile = Расположение zip-файла и ExtractTo = на место, куда должен быть извлечен zip-файл.
'The location of the zip file.
ZipFile="C:\Test.Zip"
'The folder the contents should be extracted to.
ExtractTo="C:\Test\"
'If the extraction location does not exist create it.
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
fso.CreateFolder(ExtractTo)
End If
'Extract the contants of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing