Zero a Direita

pessoal, boa tarde!!!!

Tenho uma Tabela no meu BD (Access97) de cadastro de peças, porém cada peça tem um código diferente na quantidade de casas.
Exemplo:
Rolamento - Cod:  4356
Parafuso    - Cod:  43334566
Beleta       _ Cod:  53454556555
Roela        - Cod: 12

Preciso então padronizar estes codigos colocando zeros a direita para completar a casa de 12 Digitos.    Veja o Código abaixo e me mostrem onde está o erro:

Public Function AcertaCodigo(ByVal strCodigo As String, ByVal intTamanho As Integer) As String
strCodigo = Left(strCodigo, intTamanho)
AcertaCodigo = String(intTamanho - Len(strCodigo), "0") & strCodigo
End Function

Para chamar a funçao testei assim:

Private Sub Command1_Click()
Do Until Data1.Recordset.EOF
Data1.Recordset.Edit
DBGrid1.Columns(3) = AcertaCodigo(DBGrid1.Columns(3), 12)
'DBGrid1.Columns(3) = DBGrid1.Columns(2)
Data1.Recordset.Update
ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.Max = Data1.Recordset.RecordCount
ProgressBar1.Value = ProgressBar1.Value + 1
Progress.Visible = True
Progress.Caption = "Carregando produto... " & ProgressBar1.Value & " de " & ProgressBar1.Max
Progress.Refresh
Data1.Recordset.MoveNext
Loop
Final:
    ProgressBar1.Visible = False
    Data1.Enabled = False
    Progress.Visible = False
    Data1.Refresh
    MsgBox "Foram atualizados " & ProgressBar1.Max & " produtos com sucesso!", vbInformation, Me.Caption
End Sub

Tudo funciona bem, porém o zero fica a esquerda.!!!!
Já tentei mudar para Right e Left, mas continua a esquerda.

Marcelino Neto