请帮助进行数量拆分,目的是做标签使用

yanwei82123300

请帮助进行数量拆分：
例如：50 拆成1 2 3 4 5 .....50
      20 拆成1 2 3 4 5......20
目的是做标签使用,公司想将生产数量，打印成标签
标签格式：生产订单号 : MO-137051  订单数量  20
      MO-137051-001 MO-137051-002  MO-137051-003......MO-137051-020
请帮助看看谢谢

todaynew

Function 循环输出编号(str as string,num as long)
    '示例：call 循环输出编号("MO-137051-",20)
    dim i as long
    for i=1 to num
        '以下msgbox可替换为输出标签的相关语句块
        msgbox str & format(i,"000")
    next
End Function

yanwei82123300

todaynew 谢谢