Sub SaveByteArray(strFileName, bytByteArray)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim bin
	Set bin = CreateObject("ADODB.Stream")
	bin.Type = adTypeBinary
	bin.Open
	bin.Write bytByteArray
	bin.SaveToFile strFileName, adSaveCreateOverWrite
End Sub