Enter x TAB

Hola, queria saber si alguien tiene alguna rutina armada para hacer que en un formulario se pase de campos con enter en lugar de tab, lo intente con un for pero no me resulta, buscaba algo mas sencillo.

olvide decir que es web

ok Dante, claro que se puede.
si el usuario acostumbra a dar Enter para pasar de un campo a otro se utiliza el siguiente cdigo en el evento Keypressed:

if Details.KeyCode = 13 then MsgBox "presionaste enter, que corresponde a su valor ascii 13" campo2.setFocus 'enfoca al campo siguiente end if

En el evento se tiene un parametro llamado Details, quien nos habilita en sus propiedades las teclas en valor ascii y solo basta compara si es la tecla oprimida y listo.

Atento a tus comentarios.

Alberto gracias por responder, si eso lo sabia pero lo que me gustaria es automatizarlo.
ese codigo lo tengo que poner en cada campo y saber cual es el proximo, yo quiero una rutina para que todas mis pantallas lo hagan, te muestro la que arme que no me convence del todo.
en el keypresed de mi clase txt

if Details.KeyCode = Details.KeyEnter then ParaControles.SiguienteControl (self) else RaiseEvent MiKeyPressed(Details) end if

y la rutina es:

 Dim webObj As WebObject
  dim webCon as WebControl
  dim iPrimero as Integer = 9999
  dim iActual as Integer = 0
  dim iUltimo as Integer = QueObj.Parent.ControlCount-1
  dim webVie as WebView
  dim cControl as String
  dim j as integer
  
  for j = 1 to 2
    if j = 1 then
      webVie = QueObj.Parent
      cControl  =QueObj.Name
    else
      webVie = QueObj.Parent.Parent
      cControl  =QueObj.parent.Name
    end if
    
    iPrimero = 9999
    iActual = 0
    if webVie is Nil then
      exit for
    end if
    
    iUltimo =webVie.ControlCount-1
    
    For i As Integer = 0 To iUltimo
      webObj = webVie.ControlAtIndex(i)
      
      If webObj  IsA  WebControl Then
        if iPrimero = 9999 then
          iPrimero = i
        end if
        if webObj.Name = cControl then
          iActual = i
          exit for
        end if
        
      End If
    Next
    
    if iActual < iUltimo then
      iActual = iActual+1
      exit for
    else
      iActual = iPrimero
    end if
    
  next j
  
  if not (webVie is nil) then
    webObj = webVie.ControlAtIndex(iActual)
    webCon =  webVie.ControlWithName(webobj.Name )
    webCon.SetFocus
  end if

Saludos, Algunos de ustedes me puede decir como evitar escribir números o signos de puntuación en campos para texto y viceversa?
agradeceria mucho su ayuda

Disculpen como puedo hacer un campo de texto que al estar vaci me genere un msgbox avisndome que falta completar dicho campo, aclaro es una app desktop. gracias