Excel Double Click/Enter Listbox

Hi Porucha,
So far this is what I have in the userform. I can double click it and I can use a down arrow then press enter.
I have a textbox1 where I type "app" for applesauce and it will filter whatever that has "app" from the listbox1 but when I press tab it does not highlight the item when I tab it.
thanks.

Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And ListBox1.ListIndex - 1 Then
TextBox1.Value = ListBox1.List(ListIndex)
End If
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  TextBox1.Value = ListBox1.Value
End Sub