主题：控件集合

身份证号码不等于18位，父亲电话|母亲电话不等于11位（父亲电话|母亲电话只要有一个就可以了），求代码怎样改，谢谢！

If e.Form.Controls("学生姓名").Value IsNot Nothing Then
    Dim kjmc() As String '控件名称
    Dim kjmcjh As String
    kjmcjh = "身份证号,民族,父亲姓名,母亲姓名,父亲电话|母亲电话,户籍省,户籍县,户籍镇,暂住街道,暂住社区"   '控件名称集合
    kjmc = kjmcjh.split(",")
    For i As Integer = 0 To kjmc.Length - 1
        Dim cct() As String = kjmc(i).Split("|")
        If cct.Length > 1 Then
            Dim flag As String = ""
            For j As Integer = cct.Length - 1 To 0 Step -1
                flag = cct(j)
                If e.Form.Controls(flag).Text <> Nothing Then
                    flag = ""
                    Exit For
                End If
            Next
            If flag > "" Then
                MessageBox.Show("请输入:【" & flag & "】 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
            End If
        Else
            If e.Form.Controls(kjmc(i)).text = "" Then
                MessageBox.Show("请输入:【" & kjmc(i) & "】 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
                e.Form.Controls(kjmc(i)).Select()
                Return
            End If
        End If
    Next
End If