[Resolvido]Máscara em campo RG

Boa noite,

Como faço para incluir os zeros à esquerda da numeração da identidade no código abaixo?

Private sub RG_ALUNO_AfterUpdate()
Dim NC As String
NC = Len(RG_ALUNO)
If NC = 8 Then
Me.RG_ALUNO.Format = "@.@@@.@@@-@"
Else
Me.RG_ALUNO.Format = "@@.@@@.@@@-@"
End If
End Sub


Após atualizar, por exemplo, 0.123.254-9, o resultado fica: ".123.254-9" !?

tente assim:
Private sub RG_ALUNO_AfterUpdate()
Dim NC As String
NC = Len(RG_ALUNO)
If NC = 8 Then
Me.RG_ALUNO.Format = "@\.@@@\.@@@\-@"
Else
Me.RG_ALUNO.Format = "@@\.@@@\.@@@\-@"
End If
End Sub

Bom dia, amigo

Não funcionou.

Por exemplo, um nro. qualquer de identidade: 08958145 (8 digitos)

A máscara criada tem que mostrar na caixa de texto, ao perder o foco, o número 0, inclusive!

Private sub RG_ALUNO_AfterUpdate()
Dim NC As String
NC = Len(RG_ALUNO)
If NC = 8 Then
Me.RG_ALUNO.InputMask = "0\.000\.000\-0"
Else
Me.RG_ALUNO.InputMask = "00\.000\.000\-0"
End If
End Sub

Bom dia!!

Funcionou perfeitamente! Obrigado por ter me ajudado!

Deus o abençoe!

Amem! e a Voce tbm.

O Forum agradece pelo retorno!!