Error 13 when checking Boolean statement

I have, what seems a very simple question. I have a string that I want to check the boolean but get a type mismatch error when  including a control variable.

Here is the code I'm using

Private Sub cmdAnalyze_Click()
   
   Dim ctl As Control
    For Each ctl In Me.reportSubForm.Controls
   
        If ctl.Name <> "_Label" Then
           If CBool("Me.[reportSubForm].Form.[" & ctl.Name & "].ColumnHidden") = False Then
             Debug.Print ctl.Name
             End If
        End If
Next


End Sub

It errors out on the line
 If CBool("Me.[reportSubForm].Form.[" & ctl.Name & "].ColumnHidden") = False Then

But this works

Private Sub cmdAnalyze_Click()
   
   Dim ctl As Control
    For Each ctl In Me.reportSubForm.Controls
   
        If ctl.Name <> "_Label" Then
             If Me.[reportSubForm].Form.[LastName].ColumnHidden = False Then
             Debug.Print ctl.Name
             End If
        End If
Next

I tried many things, but I am missing something simple.
Any help is appreciated!

Thanks Mark