Ayuda Urgente plisss!!!!

[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,