AddComponent4 What am I missing?

Public Sub Decks()

Dim swApp As SldWorks.SldWorks
Dim swModel As AssemblyDoc
Dim swComp As Component2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

If cbodiameter < 26.154 Then

Set swComp = swModel.AddComponent4("C:\Documents and Settings\jmay\Desktop\Solidworks Tank Layout\Deck Assemblies\9thru24DeckAssy.SLDASM", "Default", 0, 0, 0)
End If

End Sub

I am hoping someone can help me here and show me what i am not seeing. This is a chunk of code i have built into a much larger program. I have an assembly open when i run this and it steps all the way through the code just fine, but it doesnt actually add my sub-assembly. I tried replacing the sub-assembly with a part and it did the same thing. I dont know what i am missing here but its driving me up the wall that i cant figure it out, so thanks in advance.

SolidworksApi macros