a pensar un poco, si hace esto:
Dim objCBT As clsBoxT
Set objCBT = New clsBoxT
Me.Show
DoEvents
objCBT.DoIT chk
objCBT.DoIT opt
Set objCBT = Nothing
no importa, podes poner el codigo que ya tenes donde quieras.tampoco se que es lo que ya estas haciendo.de ultima se saca la duda probando.
saludos.