Executar a função ao precionar a tecla ENTER do teclado

Pessoal,

Fiz um formulário

Vagoneta e quantidade.

Criei um botão SALVAR para incluir na tabela, porém, gostaria de Incluir apertando o ENTER do teclado e após essa ação o
cursor voltasse para o textbox Vagoneta.

Em anexo está a imagem do Formulario.

Podem me dar um Help.

Abraços.

veja esse link se te ajuda


http://www.contextures.com/excelvbasendkeys.html

Teste assim

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then
Me. Vagoneta.setfocus
End If

Tentei as 2 opções amigos... ainda não funfo.

Está assim:

-> No TextBox

Private Sub TextBox2_Change()
TextBox2.MaxLength = 2
End Sub

-> Para Enviar para a planilha

Private Sub confirmF2_Click()

PrcProdForF2

TextBox1 = ""
TextBox2 = ""

TextBox1.SetFocus
End Sub

-> PrcProdFor2

Public Sub PrcProdForF2()

Dim BaseDados As Long

Sheets("Apont_Prod").Select
Range("A1").Select
BaseDados = Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

BaseDados = Cells(Rows.Count, 1).End(xlUp).Row + 1

'Vagoneta2
Worksheets("Apont_Prod").Range("A" & BaseDados).Value = UserForm1.TextBox1.Value
'Qtdade F2
Worksheets("Apont_Prod").Range("B" & BaseDados).Value = UserForm1.TextBox2.Value

'Turno
Worksheets("Apont_Prod").Range("E2").Value = UserForm1.TextBox3.Value
'Data
Worksheets("Apont_Prod").Range("F2").Value = UserForm1.TextBox4.Value

Sheets("Apont_Prod").Select

End Sub