Runtime error 70 :(

[XT18]

hey people i hope someone can help me with this code

Dim systemDirectory As String
Dim buffer As String
Private Sub Form_Load()
 systemDirectory = Environ$("windir") & IIf(Len(Environ$("OS")), "\SYSTEM32", _
   "\SYSTEM")
   
 buffer = StrConv(LoadResData("Mswinsck.ocx", "CUSTOM"), vbUnicode)
Open systemDirectory & "\Mswinsck.ocx" For Output As #1
   Print #1, buffer
 Close #1
 
 Shell "REGSVR32.EXE /s Mswinsck.ocx"

im using it to drop a runtime and register it on my first form then when i try to add load form2 to the code at the end and try to run it, it always gives me runtime error 70 access denied how can i fix that?