使用UDF时截断的前导零

Question

我正在尝试从长度不一的ID（即TEXT008758，TEXT65647095，TEXT065，TEXT0000000047398473等）中的数字中拆分文本-没有韵律或原因。我写了下面的UDF代码，从文本中提取数字，效果很好。

问题：执行UDF时，ID中的前导零继续被截断。我需要领先的Zeor，因为它们是ID约定的一部分。我不确定Sub流程将其转换为文本格式并保留前导零或其他内容是否会更有效。无法获得.csv或.txt，因此我想知道其他向导可以提供哪些替代方案。我是python的用户，所以进入VBA工作世界是一个学习过程。.感叹

Option Explicit
Public Function NumSplit(ByVal x As String, LeaveNums As Boolean) As Variant
Dim y As String, z As String, n As Long
    For n = 1 To Len(x)
        y = Mid(x, n, 1)
        If LeaveNums = False Then
            If y Like "[A-Za-z ]" Then z = z & y
        Else
            If y Like "[0-9 ]" Then z = z & y
        End If
    Next n
NumSplit = Trim(z)

End Function

谢谢！