Visual Basic para Aplicaciones - 2 CONSULTAS!!!

Hola, tengo 2 consultas:

CONSULTA 1
Tengo este codigo para que me avise si en un Textbox introducen mas de 4 letras

largo_entrada = Len(Me.TextBox2)
Select Case largo_entrada
Case 5
MsgBox "No puede ingresar mas de 5 numeros"
End Select

Pregunta: ¿Como hago para que ademas de avisarme que he ingresado mas de 5 numeros, borre el ultimo ingresado?

CONSULTA 2
Que codigo uso para indicar que vaya de un textbox a otro apretando la tecla "enter"?

Private Sub TextBox1_Change()
If Len(TextBox1) > 4 Then
MsgBox "No puede ingresar más de 5 números"
TextBox1 = Mid(TextBox1, 1, 4)
End If
End Sub

otra forma...
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) > 3 Then KeyAscii = 0
End Sub

para lo segundo mirá la propiedad EnterKeyBehavior del Textbox
también esto otro...
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = VBA.vbKeyReturn Then
MsgBox "enter!"
End If
End Sub

Saludos desde Baires, JuanC