VBA Import informacji z formantu Checkbox w wordzie do excela

Witam,
bardzo proszę o pomoc w modyfikacji poniższego kodu w taki sposób, abym mogła zaimportować informacje z formantów typu text oraz checkbox w wordzie do excela.
Ten kod działa dobrze, ale dane z informacją czy checkbox jest zaznaczony czy też nie pojawiają się w postaci ☒ lub ☐, a chciałabym, aby pojawiały się informacje TAK/NIE.
Próbowałam ze zmianą Content Control i wskazaniem typu formantu oraz struktury IF THEN. Zawsze jest coś nie tak i albo w ogóle mi nie działa, albo zaciągnie informację i wpisze mi w jedną komórkę prawidłową informację, po czym zawiesza się i każe mi zadeklarować zmienną.
Jeśli ktoś wie jak ten kod zmienić w odpowiedni sposób to będę wdzięczna.

Sub Sciagnij_Dane_Formularze()

Dim wdApp As New Word.Application
Dim myDoc As Word.Document
Dim CCtl As Word.ContentControl
Dim myFolder As String, strFile As String
Dim WkSht As Worksheet, i As Long, j As Long

myFolder = "C:\Users\ZBook\Desktop\Praca\Karty szkoleniowe_test"


Application.ScreenUpdating = False

If myFolder = "" Then Exit Sub

Set WkSht = ActiveSheet
ActiveSheet.Cells.Clear

Range("A1") = "Obszar"
Range("A1").Font.Bold = True

Range("B1") = "Typ"
Range("B1").Font.Bold = True

Range("C1") = "Rodzaj"
Range("C1").Font.Bold = True

Range("D1") = "ID SZKOLENIA"
Range("D1").Font.Bold = True

Range("E1") = "Liczba godzin"
Range("E1").Font.Bold = True

Range("F1") = "Liczba minut"
Range("F1").Font.Bold = True

Range("G1") = "Liczba dni"
Range("G1").Font.Bold = True

Range("H1") = "Zaliczenie szkolenia"
Range("H1").Font.Bold = True


i = WkSht.Cells(WkSht.Rows.Count, 1).End(xlUp).Row
strFile = Dir(myFolder & "\*.docx", vbNormal)

While strFile <> ""
    i = i + 1
    Set myDoc = wdApp.Documents.Open(Filename:=myFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
    With myDoc
        j = 0
        For Each CCtl In .ContentControls
            j = j + 1
            WkSht.Cells(i, j) = CCtl.Range.Text
        Next
            WkSht.Columns.AutoFit
    End With
    
    myDoc.Close SaveChanges:=False
    strFile = Dir()
Wend
wdApp.Quit
Set myDoc = Nothing: Set wdApp = Nothing: Set WkSht = Nothing

Application.ScreenUpdating = True

End Sub