VBA - Как перебрать пару датпикеров в определенном кадре

Question

Dim ctl As MSComCtl2.DTPicker ' InformationFrame - это объект кадра размера. Для каждого ctl в InformationFrame.Controls ' Он выдает ошибку в этой строке Если TypeOf ctl Is MSComCtl2.DTPicker Then If ctl.Value = "" Then EverythingFilledIn = False End If Next ctl