¿Cómo insertar código vb en Excel generado desde vb6?

Encontré muchas ayudas sobre como insertar código en un modulo de excel, pero no pude encontrar nada sobre como insertar código en el ThisWorkbook, es que necesito controlar en evento:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
... Mi código vb6
End Sub

y esto pegado en un modulo no funciona, lo debo pegar en el ThisWorkbook, pero no en cuentro la solución.

desde ya agradezco vuestra ayuda.

saludos