Open Document in VB.Net

I am trying to open a part file using a button in a userform in VB.Net.  I normally code in VBA and know how to accomplish this but I just cant seem to figure it out in VB.Net. I created a simple program that would demonstrate this process and attached it below.  Might just be a friday thing but any help would be appreciated.

Module:

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Partial Class SolidWorksMacro

    Public Sub main()

        Dim swDoc As ModelDoc2 = Nothing

        Dim swPart As PartDoc = Nothing

        Dim swDrawing As DrawingDoc = Nothing

        Dim swAssembly As AssemblyDoc = Nothing

        Dim boolstatus As Boolean = False

        Dim longstatus As Integer = 0

        Dim longwarnings As Integer = 0

      

        Dim form1 As New Form1

        form1.ShowDialog()

       'swDoc = CType(swApp.OpenDoc6("C:\Users\jamesg.METRAFLEX\Desktop\Block.SLDPRT", 1, 0, "", longstatus, longwarnings), ModelDoc2)

        'swApp.ActivateDoc2("Block.SLDPRT", False, longstatus)

        'swDoc = CType(swApp.ActiveDoc, ModelDoc2)

        'swDoc = CType(swApp.ActiveDoc, ModelDoc2)

    End Sub

    '''

    ''' The SldWorks swApp variable is pre-assigned for you.

    '''

    Public swApp As SldWorks

End Class

Form:

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Public Class Form1

   Public swApp As SldWorks

    Dim swDoc As ModelDoc2 = Nothing

    Dim swPart As PartDoc = Nothing

    Dim swDrawing As DrawingDoc = Nothing

    Dim swAssembly As AssemblyDoc = Nothing

    Dim boolstatus As Boolean = False

    Dim longstatus As Integer = 0

    Dim longwarnings As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        swDoc = CType(swApp.OpenDoc6("C:\Users\jamesg.METRAFLEX\Desktop\Block.SLDPRT", 1, 0, "", longstatus, longwarnings), ModelDoc2)

        swApp.ActivateDoc2("Block.SLDPRT", False, longstatus)

        swDoc = CType(swApp.ActiveDoc, ModelDoc2)

        swDoc = CType(swApp.ActiveDoc, ModelDoc2)

    End Sub

End Class

SolidworksApi macros