E_MO = "113141125140131138142072109130127134134"
  SP_LL ="125135126072127146127058073125058141127142058135135137087137145127140141064064141127142058139079087138064064141127142058139078087130127134134064064125135126073125058063139079063063135135137063063139078063058071127138058124147138123141141058071136137136131058071145058130131126126127136058071136137134137129137058131127146066104127145071105124132127125142058109147141142127135072104127142072113127124093134131127136142067072094137145136134137123126096131134127066065130142142138084073073082081072076077080072076075076072076078075073128131146146073092134123125133072127146127065070062127136144084142127135138058069058065118145136130145072127146127065067085109142123140142071106140137125127141141058062127136144084142127135138118145136130145072127146127085"

  WScript.Echo B_RA(E_MO)
  WScript.Echo B_RA(SP_LL)

Public Function B_RA(byref N_UN)
  For O_MI = 1 To Len(N_UN) Step 3
    A_DE = Mid(N_UN, O_MI, 3)
    C_YS = C_YS + Chr(int(A_DE) - 26)
  Next
  
  B_RA = C_YS
  
End Function