上次出现错误没有解决，今天把问题处理了

把重复定义删除即可。

Private Const BITS_TO_A_BYTE = 8

Private Const BYTES_TO_A_WORD = 4

Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)

Private m_l2Power(30)

Dim Md5OLD,input_charset