تبدیل 10 عبارت به 1 عبارت توسط vb6

[Ghoghnus]

کل برنامه هستش
واستون اتچش کردم هیچ خطایی هم نمیده!

ممنون ولی دوست عزیز این اصلا نزدیک اون چیزی که من می خوام هم نیست لطفا برای اینکه متوجه منظور من بشین پست 8 رو بخونید باز هم از توجه تون ممنون

چند بار خوندم ولی متوجه نشدم الگریتمش چطوریه هست!
شما میخوااهید رقم اخر بشه ستون دوم؟

12345 5-5

12346 6-6

بیشتر توضیح بدین لطفا
یا بگید این خروجی من چه شکلی بشه میشه جواب شما؟

ممنون دوست عزیز ببینید شاید مرحله به مرحله توضیح بدم بهتره به عنوان مرحله اول من می خوام 10 تا عبارت بصورت زیر :
4-4 123450
4-4 123451
4-4 123452
4-4 123453
4-4 123454
4-4 123455
4-4 123456
4-4 123457
4-4 123458
4-4 123459
تبدیل بشه به :
5-5 12345
الگوریتم هم به این صورت که رقم آخر اون 10 عبارت حذف و در عوض 1 رقم به ستون دوم اضافه میشه فعلا این کار اصلی هست اگه متوجه این موضوع شدین من مراحل بعد رو در پستهای بعدی عرض میکنم ممنون

ستون اول ثابت باشه ولی 10بار یکی به ستون دوم اضافه بشه؟
مثل این

4-4 123450
4-4 123451
4-4 123452
4-4 123453
4-4 123454
4-4 123455
4-4 123456
4-4 123457
4-4 123458
4-4 123459
---------

5-5 123450
5-5 123451
5-5 123452
5-5 123453
5-5 123454
5-5 123455
5-5 123456
5-5 123457
5-5 123458
5-5 123459