Ich mach' das überlicherweise in etwa so:
Code:
DIM meinezahl AS LONG
      meinezahl = 0
      WHILE  noch eine ziffer Z   
          meinezahl = meinezahl * 10            
          meinezahl = meinezahl + Z 
      WEND