Затеял свой инсталятор

Private Sub Compile(Project$)
    Dim o As New WshShell, j(), j1(), RegKey$, v
    v = Environ("temp")
    
    Select Case LCase(Fso.GetExtensionName(Project))
    Case "vbp"
        j = Split(ReadBytes(Project, [Binary To Unicode]), vbCrLf)
        ChDir (Fso.GetParentFolderName(Project))
        On Error Resume Next
        For f = 0 To UBound(j)
            If j(f) <> "" Then
                Select Case Split(j(f), "=")(0)
                Case "Reference"
                    j1 = Split(j(f), "#")
                    For f1 = 0 To UBound(j1)
                        If Fso.FileExists(j1(f1)) Then
                            AddComponent Fso.GetAbsolutePathName(j1(f1))
                        End If
                    Next
                Case "Object"
                    RegKey = j(f)
                    RegKey = Replace(RegKey, "Object=", "HKEY_CLASSES_ROOT\TypeLib\")
                    RegKey = Replace(RegKey, "#", "\")
                    RegKey = Split(RegKey, ";")(0) & "\Win32\"
                    AddComponent Wsh.RegRead(RegKey)
                End Select
            End If
        Next
    Case "vbg"
        MsgBox "Поиск проектов....."
    End Select

Case "vbg"
        j = Split(ReadBytes(Project, [Binary To Unicode]), vbCrLf)
        ChDir (Fso.GetParentFolderName(Project))
        For f = 0 To UBound(j)
 
            If j(f) <> "" Then
                j1 = Split(j(f), "=")
                Select Case j1(0)
                Case "Project", "StartupProject"
                    Compile (Fso.GetAbsolutePathName(j1(1)))
                End Select
            End If
        Next
 
    End Select