'The user need to define the store location. Please note that the folder need to exist and will
'not be automatically created. E.g. “c:\test\sub\aFile.txt”
FILE = "store location"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If NOT (objFSO.FileExists(FILE)) Then
	objFSO.CreateTextFile FILE
END IF

'For OpenTextFile specification please see https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/opentextfile-method

SET objFILE = objFSO.OpenTextFile (FILE,8,"True")

'The user need to define the used metadata. Multiple metadata can be used with a “&” in
'between, e.g. Metadata.Values("OCR_ZONE01") & Metadata.Values("OCR_ZONE02")
objFILE.WriteLine Metadata.Values("OCR_ZONE01")
objFILE.Close