Visual Basic - Buscar en combo box

Hola, cómo andan todos?
Mi problema es el siguiente, tengo un combo localidades ya cargado con todas las localidades, quiero que cuando el usuario escriba en el combo le vaya apareciendo las localidades que empiezan o contienen las letras que él escribió. Por ejemplo: si el usuario escribe en el combo ,San debería aparecerle San Francisco, Santa Fe, etc.
Por favor si alguien sabe como hacer esto le agradecería que me ayude.

Hola que tal.
Espero que esto te sirva

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal lMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Combo1_KeyPress(KeyAscii As Integer)
BuscarEnCombo KeyAscii
End Sub

Public Sub BuscarEnCombo(ByRef KeyAscii As Integer)
If KeyAscii < 32 Then Exit Sub
Dim KokaLeku As Long, Bilatu As String
On Error Resume Next
With Screen.ActiveControl
If .SelLength = 0 Then
Bilatu = .Text & Chr$(KeyAscii)
Else
Bilatu = Left$(.Text, .SelStart) & Chr$(KeyAscii)
End If
KokaLeku = SendMessage(.hWnd, &H14C, -1, ByVal Bilatu)
If KokaLeku <> -1 Then
.ListIndex = KokaLeku
.SelStart = Len(Bilatu)
.SelLength = Len(.Text) - .SelStart
KeyAscii = 0
End If
End With
On Error GoTo 0
End Sub

Un saludo