Visual Basic - problema al copiar

Hola, lo que pasa es que tengo el clibboard de copiar: Clipboard.SetText Screen.ActiveControl.SelText pero cuado esta seleccionado un objeto que no se puede copiar un combo o yo que se me sale error, como puedo resolverlo.
Gracias

Crea un sub para validar el tipo de control activo.

Algo así

Private sub CopiaClipBoard
Dim T as Object
Set T = Screen.ActiveControl
if TypeOf T is TextBox Or TipeOf T is ComboBox then
Clipboard.SetText T.SelText
endif

End Sub