有个有关问题,请大家帮小弟我解决一下好吗

有个问题,请大家帮我解决一下好吗?
Open   App.Path   &   "\wz.txt "   For   Input   As   #1
                Line   Input   #1,   a
                b   =   b   &   a
                Close   #1
这个方法是从我的直接取出我目录下WZ文本文件里的内容
当时取出来后,   20119810112   这样的数据,
我想把这个数据变成   2   0   1   1   9   8   1   0   1   1   2   怎么做呢??谢谢大家很急



------解决方案--------------------
每个数字后加一个空格?字符串操作问题。
s= "20119810112 "
for i=1 to len(s)
t=t & mid(s,i,1) & " "
next