Fange Navn og value i en checkbox og lægge dem i et array

Jeg har en formular som jeg scanner igennem for objecter.
jeg skal have checkboxen navn og værdi. Jeg kan godt få navnet men ved ikke hvordan jeg får fat i værdien

Jeg har følgende checkboxe.
checkboxe_1 = False
checkboxe_2 = True

dim xxx(1,1)

    For Each IO_Felter In Varme.Controls
        qqqq = IO_Felter.Name
        qqqqq = Mid(qqqq, 1, 5)

          If qqqqq = "Label" Then
         
          Else
            xxx(Tal, 0) = qqqq        'Her skal navn ligge
            xxx(Tal, 1) = qqqq.Value  'værdien "True" or "False"
     
      Tal = Tal + 1

          End If
     
           
        End If
    Next