[2005] Newbie question

[Atheist]

oh yeah sorry.

Made some modifications and it works now

For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is CheckBox And ctrl.Name.Length >= 4 Then
                If DirectCast(ctrl, CheckBox).Checked = True And LCase(ctrl.Name.Substring(0, 4)) = "name" Then MsgBox(ctrl.Name.Substring(4, 1) & " is checked")
            End If
        Next