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