Problema al cambiar de foco.

[fonchi]

Hola.

Alguien me puede decir que anda mal acá. Lo que quiero es que al ejecutar la aplicación, me pueda mover por los controles presionando enter, el punto es que
al ejecutar, presiono enter, y en vez de pasar al siguente foco, me ejecuta la acción de un boton que se encuentra en un frame.
el orden del TabIndex esta listo, entonces no se que puede ser lo que provoca
esto.

Acá parte del código de un Texbox, que esta validado.

Private Sub cia_seguros_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If

Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))

If Not (KeyAscii < Asc(0) Or KeyAscii > Asc(9)) And KeyAscii <> 8 Or KeyAscii =
Asc("^") Or KeyAscii = Asc("}") Or KeyAscii = Asc("€") Or KeyAscii = Asc("¬") Or
KeyAscii = Asc("´") Or KeyAscii = Asc("º") Or KeyAscii = Asc("ª") Or KeyAscii =
Asc("ç") Or KeyAscii = Asc("¨") Or KeyAscii = 34 Or KeyAscii = Asc("-") Or KeyAscii =
Asc("@") Or KeyAscii = Asc("~") Or KeyAscii = Asc("&") Or KeyAscii = Asc("#") Or
KeyAscii = Asc("$") Or KeyAscii = Asc("¡") Or KeyAscii = Asc("¿") Or KeyAscii =
Asc(">") Or KeyAscii = Asc("<") Or KeyAscii = Asc("{") Or KeyAscii = Asc("+") Or
KeyAscii = Asc("]") Or KeyAscii = Asc("[") Or KeyAscii = Asc("*") Or _
KeyAscii = Asc("Ç") Or KeyAscii = Asc("`") Then KeyAscii = 0
End If
End Sub

Salu2 y gracias