Can anybody help???

I have the following macro...

Dim swApp As Object

Sub main()
    sDocFileName = "C:\NewFolder\Test.SLDPRT"
   
    Dim swApp               As SldWorks.SldWorks

    Dim swModel             As SldWorks.modelDoc

    Dim nDocType            As Long

    Dim nErrors             As Long

    Dim nWarnings           As Long

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.OpenDoc6(sDocFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
End Sub

All I am trying to do is open the file "C:\NewFolder\Part2.SLDPRT" using a SolidWorks VBA macro.

I cannot get it to work. I have tried nearly all the other macros in the API forum, but without sucess.

Can anybody tell me what I am doing wrong?

I am using SolidWorks 2005

Thanks in advance!!!

Darren