请问VB6.0如何批量修改text中的字符
例如：我的text控件的内容如下：1
6
10
20
50
如何让以上数字变为：
0001
0006
0010
0020
0050
程序代码：Const 前导长度 = 4 '关键数据，指定为常量
Const 前导字符 = "0"
Dim s() As String
Dim i As Long
s = Split(Text1.Text, vbCrLf) '拆分为每一行
For i = 0 To UBound(s) '遍类所有元素，0到最大下标
If IsNumeric(s(i)) Then '如果为数值类型
If Len(s(i)) < 前导长度 Then '如果长度小于指定长度
s(i) = String(前导长度 - Len(s(i)), 前导字符) & s(i) '增加前导字符，这里是0
End If
End If
Next i
Text1.Text = Join(s, vbCrLf) '合并
好像用到的处理方法都很简单，主要是想到怎么处理。
