Проверка что контрол в форме существует

Private Function IsControlPresent(objForm As Form, sCtrlName As String) As Boolean
'Проверка что контрол в форме существует
'---------------------------------------------------------------------------------------------------
On Error GoTo IsControlPresent_Err
Dim sVal$
    
    sVal = objForm.Controls(sCtrlName).Name
    IsControlPresent = True

IsControlPresent_End:
    Exit Function

IsControlPresent_Err:
    Err.Clear
    Resume IsControlPresent_End
End Function