finally works!

It took me a long time to make it work ;-;

If TextBox1.Text = "" Then

Exit Sub

End If

Dim x As Integer

Dim contador As Integer

For x = 0 To ListBox1.ListCount

If InStr(1, TextBox2.Text, ListBox1.List(x, 0)) Then

Shapes("resp").TextFrame.TextRange.Text = ListBox1.List(ListBox1.ListIndex, x)

Exit For

End If

Next