在VBA中，可以使用字符串函数来保留前导零。以下是一个示例代码：

Sub KeepLeadingZeros()
    Dim originalNumber As String
    Dim resultNumber As String
    
    originalNumber = "00123"
    resultNumber = Format(originalNumber, "00000")
    
    MsgBox "原始数字: " & originalNumber & vbCrLf & "结果数字: " & resultNumber
End Sub

在这个示例中，我们首先声明了两个变量originalNumber和resultNumber，分别用于存储原始数字和结果数字。

接下来，我们将原始数字赋值为"00123"，然后使用Format函数将其格式化为带有五位数和前导零的字符串。格式化字符串"00000"表示结果数字应该是五位数，不足的部分会用0填充。

最后，使用MsgBox函数将原始数字和结果数字显示在一个消息框中。

当运行这段代码时，消息框将显示：

原始数字: 00123
结果数字: 00123

可以看到，结果数字保留了原始数字的前导零。