Dim a, x, i, L, f As Integer
Dim t, s As String
ListBox1.Clear
i = Sheet1.Range("A100000").End(xlUp).Row
For a = 1 To i
t = StrConv(TextBox1.Text, vbUpperCase)
L = Len(t)
s = StrConv(Sheet1.Cells(a, 1), vbUpperCase)
x = Len(Sheet1.Cells(a, 1))
For f = 1 To x
' // If L ? 2 Then
If StrConv(TextBox1.Text, vbUpperCase) = Mid(StrConv(Sheet1.Cells(a, 1), vbUpperCase), f, L) Then
ListBox1.AddItem s
End If
'// End If
Next f
Next a
End Sub