当没有代码可供使用时，很难给予一个好的答案，但这应该可以做到。

Function isGradIDChecked(Document As Object) As Boolean
      Dim CheckBox As Object
    Set CheckBox = Document.querySelector("input#grdAse_ct113_chkAprovDP")
    If Not CheckBox Is Nothing Then
        isGradIDChecked = CheckBox.Checked
    Else
        Debug.Print "input#grdAse_ct113_chkAprovDP Not Found"
    End If
End Function