Ayuda Urgente plisss!!!!

[Raulotico]

Estoy realizando un pequeño programa vba, que me otorga algunos datos para una planilla excel, pero necesito que active algunas funciones en solidworks, el codigo que tengo es el siguiente:

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Private Sub Label2_Click()

End Sub

Private Sub OptionButton1_Click()




End Sub



Private Sub OptionButton2_Click()

End Sub

Private Sub TextBox1_Change()
sumar
End Sub

Private Sub TextBox2_Change()
sumar
End Sub

Private Sub sumar()
Dim Suma As Double
Suma = Val(TextBox1.Text) + Val(TextBox2.Text)
TextBox3.Text = Format(Suma)
End Sub

Private Sub CommandButton1_Click()
Range("B2").Formula = "=" & TextBox3.Text
End Sub

Lo que necesito realizar es que cuando el 2 boton de opcion se active, me ejecute esta linea de accion en solidworks:
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID2("Tapa Descarga-1@Conjunto SAG 2008", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Tapa Descarga-1@Conjunto SAG 2008", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.HideComponent2
Part.ClearSelection2 True
End Sub

Que debo hacer?

[extrem_bcn]

pues pon todo el código dentro del optionButton2:

Private Sub OptionButton2_Click()
if OptionButton2.value = 1 then

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID2("Tapa Descarga-1@Conjunto SAG 2008", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Tapa Descarga-1@Conjunto SAG 2008", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.HideComponent2
Part.ClearSelection2 True

end if
End Sub

Por cierto, tenias un END SUB DE MÁS, supongo que el que te sobra es el último de todos.

saludos,

[Raulotico]

Gracias por responder, mira cuando ejecuto el option button 2 como me dijiste me aparece esto:
"error de compilación: se esperaba end sub"

[extrem_bcn]

Upsssssssss! no habia visto que tenias un SubMain ... has de borrar de la linea del optionButton2 la que pone:

Sub main()