Como deixar a tecla enter com a mesma função de duplo clique.

Olá amigos, bom dia!

Estou com um probleminha e gostaria de pedir a ajuda de vocês. Tenho formulário chamado frm_pesGrupoEmCadProduto. Nesse formulário tem uma lista chamada lis_PesGrupo e nessa lista eu tenho um evento ao dar duplo clique que executa o seguinte procedimento:

Código:

On Error Resume Next
    Dim Linha As Integer
    Linha = Me.lis_PesGrupo.ListIndex + 1
    
    If selecionado = True Then
        
        Forms![frm_cadProduto].Form.catGrupo.Value = Me.lis_PesGrupo.Column(1, Linha)
        
    End If
    
    DoCmd.Close

Gostaria que esse evento acontecesse o mesmo ao apertar a tecla enter.
Eu tentei fazer o mesmo com base no formulário frm_pesGrupo, porém nada funcionou. Deixarei uma cópia do banco anexada aqui.

Olá Alan

Apenas alinhei seu código e inseri a linha em vermelho

Private Sub lis_PesGrupo_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Dim Linha As Integer
   
   If KeyCode = 13 Then
            EvitaSairLista = True
            selecionado = True
            Linha = Me.lis_PesGrupo.ListIndex + 1
            Forms![frm_cadProduto].Form.catGrupo.Value = Me.lis_PesGrupo.Column(1, Linha)
            lis_PesGrupo_DblClick (0)
   End If
   
   DoCmd.Close
   
End Sub

[]'s

FIM

Olá Alexandre Fim, tudo bem?

Então, eu adicionei a insttrução que me passou, mas está apresentando um erro. Ao utilizar as setas para cima e para baixo em prol de marca um item da lista, o formulário é fechado automaticamente. Poderia me ajudar nessa questão?