mdosmagos,

Boa Noite!

Veja se o exemplo anexo lhe atende.

Acredito que o modelo do colega Wagner já lhe atenda, mas você tambem pode utilizar :

Se estiver falando de Textbox em Formulario

Private Sub CommandButton1_Click()

    With TextBox1
        .Value = Left(.Value, Len(.Value) - 1)
    End With
  
End Sub

Se for em uma celula na Planilha, poderia ser:

Sub tstBackspace()
    With Sheets("Plan1").Range("A1")
        .Value = Left(.Value, Len(.Value) - 1)
      End With
End Sub

[]s

Muito obrigado pela ajuda dos dois, vou poder usar nas duas situações citadas...