ayudenme porfavor amigos estoy haciendo un autentificador de usuario

[rastafinis]

y lo que que deseo es que
al terminar de yanar los capos de cuadors de texto presione enter
y sea como haver presionado el boton entrar

he echo este codigo pero la parte de keyascii = 13
y poniendo cmdentrarautent.enabled no me sale que ago ayuda porfavor

Private Sub cmdentrarautent_Click()
Dim clave As String
Dim user As String
user = Txtusuario.Text
clave = Txtcontraseña.Text
If user = "Administrador" And clave = "TPHMM23VQK" Then
Form2.Show
Unload Me
Else
MsgBox ("Datos Incorrectos")
End If
End Sub
Private Sub cmdsalirautent_Click()
Unload Me
End Sub
Private Sub Txtcontraseña_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdentrarautent
End If
End Sub