Visual Basic - Coincidencias en un listbox

Hola
Me gustaría saber como se puede hacer lo sgte
tengo un textbox y un listbox Quiero que al ingresar una letra en un text box me aparescan las coincidencias en el listbox, es igual a como funciona la ayuda de Visual
gracias

Dim strText As String
Dim I As Integer
Dim intL As Integer
Dim X As Integer

strText = UCase(Me.Text3.Text)
intL = Len(strText)
For I = 0 To LIST1.ListCount - 1
If InStr(1, Mid(UCase(LIST1.List(I)), 1, intL), strText) Then
LIST1.ListIndex = I
End If
Next