程序代码：

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)             '合并