APARECER 0 A ESQUERDA

Citação:

:
Tem essa função q funciona muito bem, talvez possa te ajudar:

Public Function ZeroEsquerda(sValor As String, nQtdeZeros) As String

[ô] ******************************************************
[ô] preencher com zeros a esquerda.
[ô]sValor -> número a ser modificado
[ô]nQtdeZeros -> qtde. de zeros a esquerda
[ô]Exemplo: ZeroEsquerda([Ô]15[Ô],5) -> resultado [Ô]00015[Ô]
[ô] ******************************************************

Dim nI As Integer
Dim nQtdeSerPreenchida As Integer
Dim sResultado As String

If nQtdeZeros = 0 Then
MsgBox [Ô]Faltou o VALOR Do Segundo Parâmetro[Ô], vbInformation + vbOKOnly, [Ô]AVISO[Ô]
ZeroEsquerda = sValor
Else
nQtdeSerPreenchida = nQtdeZeros - Len(sValor)
If nQtdeSerPreenchida < 0 Then
ZeroEsquerda = sValor
Else
sResultado = sValor

For nI = 1 To nQtdeSerPreenchida
sResultado = [Ô]0[Ô] + sResultado
Next nI
ZeroEsquerda = sResultado
End If
End If

End Function

PARA CHAMAR:
TargetBox.Text = ZeroEsquerda(TargetBox.Text, 6)