VBA проверьте, если класс реализует интерфейс
If TypeOf objectParameter Is IMyInterface Then
'do stuff
End If
VasteMonde
If TypeOf objectParameter Is IMyInterface Then
'do stuff
End If