Sub DictionaryToFile(dic, strFile)
'Creates an ini-style file from a dictionary
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Dim colNames, strName
Const ForWriting = 2
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ts = fs.OpenTextFile(strFile, ForWriting, True)
	colNames = dic.Keys
	For Each strName In colNames
		ts.WriteLine strName & "=" & dic(strName)
	Next
	ts.Close
End Sub