Search as you type List Box in VBA

[sujittalukder]

Thanks its working well but Keyascii code line is not working.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As msforms.ReturnInteger)
    If KeyAscii = 13 Then
        TextBox1.Text = ListBox1.Text
    End If
End Sub