Criar uma botão com a função da Tecla BackSpace

Boa tarde!

Estou criando um formulário que fará a função de um teclado de apenas números. A rotina será que ao clicar no botão "1" ele preencha a caixa de texto "cCodigo" com o número 1. Assim sendo, criei os botões de 0 a 9 e para isso usei o seguinte código:

Private Sub bt1_Click()
Me.cCodigo.SetFocus
Me.cCodigo.Text = (Me.cCodigo.Text & "1")
End Sub

Private Sub bt2_Click()
Me.cCodigo.SetFocus
Me.cCodigo.Text = (Me.cCodigo.Text & "2")
End Sub

.... repeti isso até o botão zero.

Agora peço ajuda aos companheiros, pois preciso criar o botão que faça a função da tecla BackSpace, ou seja , preciso dar a opção de apagar o número digitado caso o usuário erre ao digitar.

Ex.: 12345 apague somente o 5.

Desde já agradeço a todos!!!

Boa tarde Ronaldo,

Dentro do evento "Ao clicar" do seu botão, coloque:

Código:

    Dim sTexto As String
    Dim tCaract As Integer
   
    sTexto = Me.txtCampo.Value
    tCaract = Len(sTexto)
    Me.txtCampo.Value = Left(sTexto, tCaract - 1)
    Me.txtCampo.SetFocus
    Me.txtCampo.SelStart = Len(Me.txtCampo)

Substitua onde tem txtCampo pelo nome do seu campo que contém o texto à apagar.

Espero que ajude.

Só um complemento que esqueci, para evitar erros:

Código:

    Dim sTexto As String
    Dim tCaract As Integer
   
    sTexto = Me.txtCampo.Value
    tCaract = Len(sTexto)
    If tCaract > 0 Then
        Me.txtCampo.Value = Left(sTexto, tCaract - 1)
        Me.txtCampo.SetFocus
        Me.txtCampo.SelStart = Len(Me.txtCampo)
    End If

Bom dia!

Faça o simples:

Código:

Private Sub BotaoDelete_Click()
        SendKeys "{BACKSPACE}"
End Sub