Configurar tecla ENTER en textbox

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyData = Keys.Enter Then

            Call BUSCARD()

        End If

    End Sub