VB.NET CellCharactersStrikeThroughCheck

'セル内の一部の取り消し線なっていることをチェック
 Private Sub CellCharactersStrikeThroughCheck()

        Dim i As Integer
        For i = 1 To ActiveCell.Characters.Count
            If ActiveCell.Characters(i, 1).Font.Strikethrough = True Then
                MsgBox(ActiveCell.Characters(i, 1).Text)
            End If
        Next
    End Sub

'セル全体に取り消し線になっていることをチェック
    Private Sub CellStrikeThroughCheck()
        If ActiveCell.Font.Strikethrough = True Then
            MsgBox(ActiveCell.Text)
        End If
    End Sub