I have the following macro to insert two blocks in a drawing. I create a new view to insert there blocks into but I cant figure out how to activate the new view so the blocks gets inserted correctly? Any ideas on how to use the new view?

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim instance As IDrawingDoc

Sub main()

Dim LowerLeftX As Double
Dim LowerLeftY As Double
Dim SketchSize As Double
Dim Scale1 As Double
Dim value As View
Dim yes As Boolean

Set swApp = Application.SldWorks
Set instance = swApp.ActiveDoc

Set value = instance.CreateViewport3(0, 0, 0, 0)
Set Part = swApp.ActiveDoc
Dim myBlockDefinition As Object

Set myBlockDefinition = Part.SketchManager.MakeSketchBlockFromFile(Nothing, "U:\\Fredrik_std\\ISO.sldblk", False, 0.25, 0)
Set myBlockDefinition = Part.SketchManager.MakeSketchBlockFromFile(Nothing, "U:\\Fredrik_std\\Note Imperial Units.SLDBLK", False, 0.1, 0)
End Sub