loc_00401EB4: xor ebx, ebx           EBX – здесь накапливаем результат
loc_00401F06: call __vbaLenBstr;     L = получить длину введенной строки
loc_00401F57: call __vbaVarForInit;  Цикл от Count = 1по L с шагом 1
loc_00401FFE: call rtcMidCharVar;          символ = Mid$(строка, Count, 1) //получить символ из строки
loc_004020D3: call __vbaVarTstEq           Если символ == «0» Тогда
loc_004020DA: sub ebx, 00001388h                EBX = EBX – 0x1388 (5000)
                                                продолжить
loc_00402109: call __vbaVarTstEq           Если символ == «1» Тогда
loc_00402110: add ebx, 000003E8h                EBX = EBX + 0x3E8 (1000)
                                                продолжить
loc_0040213F: call __vbaVarTstEq           Если символ == «2» Тогда
loc_00402146: sub ebx, 000007D0h                EBX = EBX – 0x7D0 (2000)
                                                продолжить
loc_00402175: call __vbaVarTstEq           Если символ == «3» Тогда
loc_0040217C: add ebx, 00000BB8h                EBX = EBX + 0xBB8 (3000)
                                                продолжить
loc_004021AB: call __vbaVarTstEq           Если символ == «4» Тогда
loc_004021B2: sub ebx, 00000FA0h                EBX = EBX – 0xFA0 (4000)
                                                продолжить
loc_004021E1: call __vbaVarTstEq           Если символ == «5» Тогда
loc_004021E8: add ebx, 00001388h                EBX = EBX + 0x1388 (5000)
                                                продолжить
loc_00402217: call __vbaVarTstEq           Если символ == «6» Тогда
loc_0040221E: sub ebx, 00001770h                EBX = EBX – 0x1770 (6000)
                                                продолжить
loc_0040224D: call __vbaVarTstEq           Если символ == «7» Тогда
loc_00402254: add ebx, 00001B58h                EBX = EBX + 0x1B58 (7000)
                                                продолжить
loc_00402283: call __vbaVarTstEq           Если символ == «8» Тогда
loc_0040228A: sub ebx, 00001F40h                EBX = EBX – 0x1F40 (8000)
                                                продолжить
loc_004022B9: call __vbaVarTstEq           Если символ == «9» Тогда
loc_004022C0: add ebx, 00002EE0h                EBX = EBX + 0x2EE0 (12000)
                                                продолжить
loc_004022F1: call __vbaVarTstEq           Если символ == «(» Тогда
loc_004022F8: add ebx, 00000001h                EBX = EBX + 1
                                                продолжить
loc_00402321: call __vbaVarTstEq           Если символ == «что-нибудь другое» Тогда
loc_00402323: xor ebx, ebx                      EBX = 0
                                     КонецЦикла