[Resolvido]Função para verificar vários controles

Boa noite !

Existe alguma forma de verificar vários controles através de uma função ?

Tenho 112 Caixa de texto em um Formulario (Sei que é muito mas minha necessidade obriga a fazer isso)e em todos eles vao ser informados horas na qual nao pode ultrapassar 24:00 , o campo na tabela é do tipo texto.

eu consigo fazer dessa forma abaixo no evento apos atualizar, mas não queria fazer isso 112 vezes....

Código:

If Left(Me.HrRqu0001, 2) = 24 Then
    If Right(Me.HrRqu0001, 2) > 0 Then
        MsgBox "Verifique os Minutos Digitado"
        HrRqu_0001 = ""
    End If
ElseIf Left(Me.HrRqu_0001, 2) > 24 Then
    MsgBox "Verifique a Hora Digitada"
    HrRqu_0001 = ""
ElseIf Right(Me.HrRqu_0001, 2) > 60 Then
    MsgBox "Verifique os Minutos Digitado"
    HrRqu_0001 = ""
End If

Alguma Sugestao ?

Obrigado Avelino!

Adaptei o seu exemplo a minha necessidade e ficou da seguinte forma

Código:

Public Function fncVerificaHora(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
  Select Case ctl.ControlType
  Case acTextBox, acComboBox, acListBox
    ctl.AfterUpdate = "=fncHoraDigitada([" & ctl.Name & "],0)"
  End Select
Next
End Function

Public Function fncHoraDigitada(ctl As Control, Cor As Byte)
If Left(ctl, 2) = 24 Then
    If Right(ctl, 2) > 0 Then
        MsgBox "Verifique os Minutos Digitado"
        ctl = ""
    End If
ElseIf Left(ctl, 2) > 24 Then
    MsgBox "Verifique a Hora Digitada"
    ctl = ""
  ElseIf Right(ctl, 2) > 60 Then
    MsgBox "Verifique os Minutos Digitado"
    ctl = ""
  End If
End Function

Private Sub Form_Load()
    Call fncVerificaHora(Me)
End Sub

Saudações !