'使用方法'PrivateSubCommand1_Click()'Dimc1AsNewClass1'MsgBoxc1.DigestStrToHexStr(Text1.Text)'EndSub