Visual Basic - Ayuda con una busqueda!!

Estoy empezando en esto de la programación, por eso me gustaria obtener una respuesta
bastante detallada de lo que busco:

Tengo el siguiente codigo para realizar una busqueda mediante un command button:

" Private Sub Command5_Click()
If Data1.Recordset.NoMatch = True Then MsgBox ("NO SE PUEDE ENCONTAR EL REGISTRO. VUELVE A INTRODUCIRLO!"), vbInformation, "AVISANDO!"
Data1.Recordset.FindFirst "POLIZA ='" & Text18.Text & "'"
Frame3.Visible = True
End Sub "

Lo que yo queria es que situandome en el Text y escribiendo el registro a buscar, con tan
solo pulsar ENTER me realice la busqueda y me muestre los demás registros.
Resumiendo: sustituir un Command Button por un simple ENTER.

Muchas gracias.

Private Sub Text1_KeyPress(KeyAscii As Integer)

'EN ESTE ENEVNTO ES DONDE DEBER HACER LO SIGUIENTE
IF KEYASCII=13 THEN

If Data1.Recordset.NoMatch = True Then MsgBox ("NO SE PUEDE ENCONTAR EL REGISTRO. VUELVE A INTRODUCIRLO!"), vbInformation, "AVISANDO!"
Data1.Recordset.FindFirst "POLIZA ='" & Text18.Text & "'"
Frame3.Visible = True
END IF

End Sub
EL KEYASCII=13 CORRESPONDE AL LA TECLA ENTER ENONCES CUANDO LA PRESIONES BUALA CHAVAL!!!!!!!!!!

Creo que debería ser asi:
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii=13 then
Data1.Recordset.FindFirst "POLIZA ='" & Trim(Text18.Text) & "'"
If Data1.Recordset.NoMatch = True Then MsgBox ("NO SE PUEDE ENCONTAR EL REGISTRO. VUELVE A INTRODUCIRLO!"), vbInformation, "AVISANDO!"
Frame3.Visible = True
END IF
end if
End Sub