รับตัวเลขสิบและร้อยรหัสเพื่อนที่ต้องการมันสามารถอ้างถึงได้
function numbersplit (num) dim i, ความยาวความยาว = len (num) สำหรับ i = 1 ถึง length numbersplit = numbersplit & num mod 10 &, 'num ที่เหลืออยู่ = num/ 10' it = ซ้าย (numbersplit, len (numbersplit) -1) ฟังก์ชันสิ้นสุด