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?