1)、LRC 演算法校驗的實現 
Public Function LRC(str As String) As String 
c = 0 
l = Len(str) 
For c = c + 1 To l 
c_data = Mid$(str, c, 2) 
d_lrc = d_lrc + Val("&H" + c_data) 
c = c + 1 
Next c 
If d_lrc > &HFF Then 
    d_lrc = d_lrc Mod &H100 
End If 
h_lrc = Hex(&HFF - d_lrc + 1)