Sub aaa()
'    こんな形式のEDIDデータファイルのチェックサムを求めます
'00FFFFFFFFFFFF005C85805100000000
'1F120103683420782EC585A459499A24
'125054BFCF00810081C0B3009500950F
'010101010101283C80A070B023403020
'360006442100001A000000FD00384B1E
'5010000A202020202020023A80187138
'2D40582C450006232100001E000000FC
'004C323431304E4D0A2020202020002E

    Open "C:\EDID.txt" For Input As #1
    
    Dim strA    As String
    Dim lngA    As Long
    Dim lngB    As Long
    Dim lngSum  As Long
    
    Dim lngNum  As Long
    Dim lngByteCount  As Long
    
    Dim strW    As String
    Dim strSum  As String
    
    lngSum = 0
    lngByteCount = 0
    
    While Not EOF(1)
        Line Input #1, strA
        
        
        If Len(Trim(strA)) > 10 Then
            strA = UCase(strA)
            strSum = ""
            For lngA = 1 To 16
                lngNum = 0
                For lngB = 1 To 2
                    strW = Mid(strA, (lngA - 1) * 2 + lngB, 1)
                    If lngB = 1 Then
                        lngNum = lngNum + getnum(strW) * 16
                    Else
                        lngNum = lngNum + getnum(strW)
                    End If
                Next lngB
                
                lngSum = lngSum + lngNum
                
                lngByteCount = lngByteCount + 1
            Next lngA
        End If
    Wend
    lngSum = lngSum - lngNum    '最後のバイトを除外します。
    strSum = Hex$(lngSum)
    'チェックサムは256から引いたものとなります
    lngSum = 256 - (getnum(Left(Right(strSum, 2), 1)) * 16 + getnum(Right(strSum, 1)))
    Debug.Print Hex$(lngSum)
    Close #1
End Sub
Function getnum(strW As String)
    Dim lngA    As Long
    For lngA = 0 To 15
        If Hex$(lngA) = strW Then
            getnum = lngA
            Exit Function
        End If
    Next lngA
End Function