Help me crack this code!

it's for an excel spreadsheet, I need to establish what my registration key would be based on my computer ID, I have tried editing the macro to edit out the part where it asks for registration key but I cant get it to work, the next best thing would be to crack the code generation process

Computer ID: 1234275572

Rem RegKey = RegNum / 10
Rem RegKey = RegKey * 9
Rem RegKey = RegKey / 8
Rem RegKey = RegKey * 7
Rem RegKey = RegKey / 6
Rem RegKey = RegKey * 5
Rem RegKey = RegKey / 4
Rem RegKey = RegKey * 3
Rem RegKey = RegKey / 2
Rem RegKey = Round(RegKey * 111, 0)
Rem RegKey = CLng(Left(CStr(RegKey), 9))
Rem RegKeyA = Mid(CStr(RegKey), 2, 2) + Mid(CStr(RegKey), 1, 1)
Rem RegKeyB = Mid(CStr(RegKey), 5, 2) + Mid(CStr(RegKey), 4, 1)
Rem RegKeyC = Mid(CStr(RegKey), 8, 2) + Mid(CStr(RegKey), 7, 1)
Rem RegKey = RegKeyB + "-" + RegKeyA + "-" + RegKeyC

welcome to the forums blaza88z :wave:

I would recommend you read the AUP (Acceptable Use Policy: See the link in my signature)

A polite request: Please do not post such kind of questions again. I am closing this question.