Pulling check box info from Word to Excel

[RobDog888]

This is what I got, but the dumb InlineShape is giving me problems getting its text property.

Sub Macro1()
    'Behind a word document
    'Add a reference to MS Excel xx.0 Object Library
    Dim oXlApp As New Excel.Application
    Dim oWb As Excel.Workbook
    
    Set oXlApp = CreateObject("Excel.Application")
    
    Set oWb = oXlApp.Workbooks.Open("C:\Book1.xls")
    oXlApp.Visible = True
    'oWb.Sheets(1).Cells.Range("F2").Value = ActiveDocument.InlineShapes("CheckBox1").TextEffect.Text
 
End Sub