VB-对于每个ctl，文本框无法识别

Question

我无法弄清楚为什么下面的代码不起作用。第一个列表框显示除文本框之外的所有控件。当然，MsgBox什么都不做 - 因为它只是在寻找文本框。为什么不识别文本框？顺便说一句，我已经改变了一些文本框上的名字，因为我有很多。如果我更改名称，它能否识别出它是什么类型的控制？

    Dim ctl As Control
    For Each ctl In Me.Controls
        ListBox1.Items.Add(ctl.Name)
        If TypeOf ctl Is TextBox Then
            MsgBox(ctl.Name)
            'validate that it is numeric
            If ctl.Text = "" Then
                'if not show error and exit sub
                MessageBox.Show("Please fill all blanks.")
                Exit Sub
            End If
        End If
    Next

我很感激帮助。