想搞一个票据打印，遇到了难题：例如数值123.45元，不知道如何将其对应插入百、十、元、角、分栏中。
请各位老师帮帮忙，最好能够提供个源码，先谢谢了！

****************************************************************

我在上面表达的不清楚。我要的不是人民币大小写转换。
我的意思是：如何能够把小写数值123.45元，变为小写数组1、2、3、4、5，然后按百、十、元、角、分，分别对应插入票据上相应的小写空格。
也就是把123.45元拆分为1、2、3、4、5后，分别对应显示在小写空格百、十、元、角、分上。
**********************************************************************************

下面的是我从网上抄来的，我没看出有什么问题，但运行时没反应，请教教我怎么用。

Dimension aa(11) 
aa(11)=Thisform.je11
aa(10)=Thisform.je10
aa(9)=Thisform.je9
aa(8)=Thisform.je8
aa(7)=Thisform.je7
aa(6)=Thisform.je6
aa(5)=Thisform.je5
aa(4)=Thisform.je4
aa(3)=Thisform.je3
aa(2)=Thisform.je2
aa(1)=Thisform.je1
For m.i=1 To 11
    If aa((m.i)).Value>0   
    If m.i>1   
    aa(m.i-1).Value ="￥"   
    Exit
        Endif
     Endif
ENDFOR