foreach - VB- For Each 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

助けてくれてありがとう。