Ciao.
Ho provato a fare qualcosa del genere usando una TextBox e una Combo.
Ti basta inserire questi due oggetti su una Form e come codice questo:
codice:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _
Integer, ByVal lParam As Any) As Long

Private Sub Form_Load()
With Combo1
  .AddItem "ALESSIO"
  .AddItem "ANNA"
  .AddItem "ANNAMARIA"
End With
End Sub

Private Sub Text1_Change()
Const CB_FINDSTRING = &H14C
'Const CB_FINDSTRINGEXACT = &H158

Dim Index As Long

Index = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, Text1.Text)
Combo1.Text = Combo1.List(Index)
End Sub