Mudar de campo automaticamente ( Mas o tamanho do campo nem sempre é o mesmo)

Bom dia!

Tenho um programa onde os campos são preenchidos por um leitor de código de barras, queria que quando o campo fosse preenchido o foco já mudasse para o próximo campo. Como posso fazer isso, vi algumas soluções aqui no entanto em todas o campo era sempre com o mesmo tamanho, e no meu casso isso não acontece.

Desde já agradeço a colaboração!

Utilize o método .setfocus no evento "ao alterar"

Já tentei mas não tive sucesso!
Tentei assim:

meucampo.SetFocus

Se não der no evento "AfterChange", tente com o evento "AfterUpdate".

Código:

Private Sub nomedocampoatual_afterchange()
    nomedopróximocampo.setfocus
End Sub

Consegui contornar da seguinte forma:

Código:

If N_COD_REGISTRO.SelStart = 13 Then
  Dim ws As Object                            (Objeto criado para substituir o sendkeys pq o mesmo desativa o num look)
  Set ws = CreateObject("WScript.shell")
  ws.SendKeys "{TAB}"
End If

OBS: Pesquisei em tanto lugares que não me lembro a origem. Por isso peço Desculpas por não dar os Creditos.