Criei uma máscara de telefone com DDD em um textbox. Conforme o usuário vai digitando o número do telefone o código seguinte vai dando o formato de telefone:

Private Sub Telefone_Change()
If Len(Telefone) = 1 Then
    Telefone.Value = "(" + Telefone.Value
End If

If Len(Telefone) = 3 Then
    Telefone.Value = Telefone.Value + ")"
End If

If Len(Telefone) = 4 Then
    Telefone.Value = Telefone.Value + " "
End If

If Len(Telefone) = 9 Then
    Telefone.Value = Telefone.Value + "-"
End If
End Sub

Porém, quando eu pressiono a tecla BACKSPACE para corrigir algum caractere o código acima não permite. Então eu gostaria de uma forma em que esse código acima fosse executado normalmente menos quando a tecla BACKSPACE fosse pressionada.